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Editorial 



La presse nous inonde depuis deux mois d'articlcs sur les peripeties d'Apple, avec le depart de Jobs 
qui a suivi celui de Wozniak. Les financiers ne semhlent pas sefier aux nombreux bruits alarmistes : 
I 'action d'Apple flotte aujourd'hui (fin octobre) aux environs de $18, soit 10% de mieux que la 
moyenne du cours ces derniers mois. 

Cela tieni aussi probablemenl au succes obtenu par Apple corure Digital Research au sujet du systeme 
GEM pour IBM; ce systeme irnitait par trop la presentation et les graphismes deja devenus classiques 
grace au Macintosh : Digital Research est oblige de retirer GEM du marchi le 15 novembre 85, doit 
verser de VargerU a Apple ( "undisclosed amount" ) et soumetxre ses nouvelles versions ct Apple avant de 
les sortir sur le marche. Voila qui ralentira la sortie effective de I' Atari 520 ST qui, avec I' Amiga de 
Commodore, est un des deux concurrents du Macintosh; en effet, le 520 ST devait lui aussi utiliser le 
systime GEM. 

N'nublions pas nan plus deux f aits importants : tout d'abord, la gamme Apple s'enrichit de jour en 
jour, qu'il s'agisse de la ligne Apple II ou de la ligne Macintosh; et enfin, quel est le constructeur de 
micros qui ne connait pas de probleme ces temps-ci ? Meme IBM France a ete oblige de revoir ses 
previsions de vente d'IBM PC pour I'annee 1985, en baisse de 100 000 a 60 000 unites I Nous 
gardons done notre moral et conrinuons & vous inonder d'articles et de programmes, dont nous nous 
effbrgons de maintenir le niveau de quaiite au plus haut. 

Void pour ce numiro un programme chargi : un dicrypteur de Paul Franceschi bien pratique pour 
ne pas rester bloquer dans les jeux d'aventures. Sans arriver awe 11 millions de decimates deja 
connues, vous calculerez % avec Michel Dominique. 

Cote graphique, deux contributions : Patrick Quettier et Roland Jost, pour river en HGR... 
Etudes theoriques : Yvan Koenig s'est penche sur les ROMs de la ligne Apple et Patrice Neveu a 
disassemble RWTS. 

Theorique aussi et d'une utilisation immediate les 36 pistes de B. TomSno. Plus rare, une 
contribution en WPL de Vironique Schmitt. 

Enfin, pour convertir vos fichiers Pascal en des fichiers DOS, "Lirpastext" de Jean-Claude 
Lengrand. 

Nouvelles progressions sur le Macintosh : Jean-Luc Bazanegue a mis au point un accessoire qui 
devient vite indispensable : enfin pouvoir ejfacer des fichiers depuis une application... Marianne 
Sutz, egalement une habituee de nos colonnes, vous presente une instruction meconnue du MSBasic 
2.0 : "Library" . Cote pedagogic, nous retrouvons Girard Michel avec lefonctionnement de fenetres 
de saisie. 

Bien sur vous retrouverez nos rubriques habituelles avec Alexandre Duback, Jean-Michel 
Gourivitch, Alexandre Avrane et Olivier Herz- 

Herve Thiriez 
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Conversion 

Jean-Claude Lengrand 

rransformer des fichiers Pascal cn des 
fichiers DOS, tel est l'objet du 
programme pr6sent£ ici : Lirpastext. Les 
fichiers PASCAL en question peuvent 
etre des FILE OF CHAR (TEXT au sens du 
langage PASCAL) de deux types difftrents (selon 
qu'ils ont ou non ete crccs par l'cditeur, 
c'est-&.-dire qu'ils ont ou non le suffixe .TEXT) ou 
des FILE OF STRING. Les premiers sont 
convertis en fichiers DOS 3.3 a acces sequentiel, 
les seconds en fichiers DOS 3.3 h acces direct. Au 
passage, certaines conversions de earact&res 
peuvent etre effectu^es (remplacement des virgules 
par des blancs, par exemple). Pour utiliser 
Lirpastext, il faut connaitre le numero de bloc de 
debut et la longueur du fichier sur la disquette 
PASCAL, ce que Ton voit imm6diatement sur le 
catalogue en Pascal. Les messages du programme 
Basic en constituent le mode d'ernploi. 



Programme LIRPASTEXT 

10 REM LIRPASTEXT 

20 REM RECOPIE UN "FILE OF CHAR" PASCAL 

30 REM OU UN FILE OF STRING PASCAL 

40 REM SUR UN FICHIER SEQUENTIEL BASIC ( 

FILE OF CHAR) 
50 REM OU A ACCES DIRECT BASIC (FILE OF 

STRING) 

60 REM LENGRAND, LE 21/12/82 
70 REM 

80 HI MEM : 38090 
90 AD 38091 

100 D0$ = CHR$ (4) :BI$ = CHR$ (7) :DLS 

= CHR$ (16) 
110 DIM S(15),S1 (2) 

120 FOR I = TO 15: READ S(I): NEXT I 
130 REM LISTE DES SECTEURS BASIC CORRES 
PONDANT 

140 REM AUX SECTEURS PASCAL 0,1,2, ... 
150 DATA 0,14,13,12,11,10,9,8,7,6,5,4,3 
,2,1,15 

ISO BU = AT -11: ?Zy. .-SPSIZZ ZZ Z.TFZ? 
170 PG = AD + 279: REX *fitff,»,Vf DO PROGS 

amme zz zzzz~s 

180 ER = AD + 12: ?Zy AT ZZ ZZZE Z?JS7? 

190 TR = AD - A : =™ AZ ZZ : Z^<ZZ- ZZ = 

ISTE 




200 SC — AD + 5: REM AD. DU NUMERO DE 5 
ECTEUR 

210 OD - AD + 16: REM AD. DU DERNIER DR 

IVE UTILISE 
220 ND - AD + 2: REM AD.DU BVTUR DRIVE 
230 S = 0: DIM Sl% (10) , S2% (10) : REM PO" 

R LA SUBSTITUTION DE CARACTF.RF.S 
240 TEXT : HOME : PRINT "TRANSFERT D'UN 

FICHIER DE CI1ARACTERES " 
250 PRINT "PASCAL SUR UNE DISQUETTE BASI 

C": PRINT 

260 PRINT "METTEZ LA DISQUETTE CONTENANT 
USERWTS" 

270 PRINT "DANS LE DRIVE 1 ET FAITES <RE 
TURN>" 

280 GET W$: PRINT : PRINT 

290 PRINT DQ$; "BLOAD USERWTS.CODE,A";AD; 
", Dl " 

300 PRINT "METTEZ LA DISQUETTE PASCAL A 
LIRE" 

310 PRINT "DJWS LE DRIVE 2 ET FAITES <RE 
TURN>" 

320 GET W$: PRINT : PRINT 

330 PRINT "METTEZ LA DISQUETTE BASIC DES 
TINATAIRE " 

340 PRINT "DANS LE DRIVE 1 ET FAITES <RE 
TURN>" 

350 GET W$: PR TNT : PRINT 

360 tiTAB 1: VIAE 4: CALL - 958 

370 INPUT "PREMIER BLOC A LIRE="/PB 

380 IF PE < OR PB > 279 THEN PRINT BI 

f; GOTO 370 
390 INPUT "NO MB RE DE BLOCS A LIRE-" /NB 
400 IF NB < OR NR > 279 THEN PRINT BI 

$i GOTO 390 
410 INPUT "EST-CE UN FILE OF STRING (O/N 

) ? n ;S$ 

420 IF LEFTS (S$,l) = T THEN S$ = "N" 
: PRINT "CE DOIT ETRE UN FILE OF CHA 

R": GOTO 480 
430 lb' LEFT$ (84,1) < > "0" THEN PRIN 

T BI$: GOTO 410 
440 S$ = "0":T$ = "N":N% « 1 
450 INPUT "LONGUEUR DECLAREE POUR LES CH 

AINE5 ? ";LM 
460 GOTO 570: REM CE NE PEUT PAS F.TRE U 

N .TEXT 

• z 7 :t - zzz zz zz z. zzz . text (o/n) 
? m ;TS 

43G IF i£TT5 fTS,lJ = m CT THEN T$ = "0" 
yzrz f^r 

~: = -V" THEN T$ = "N" 
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f GOTO 520 
510 PRINT BIS: GOTO 480 

520 PRINT ; PRINT "VOULEZ-VOUS (1 OU 2 
):" 

530 PRINT "1 RECOPIER TOUS LES CARACTERE 

S MEME NULS" 
540 PRINT "2 VOUS ARRETER AU PREMIER CAR 

ACTERE NUL" 
550 PRINT : PRINT "NB : CARACTERE NUL ($00 

) = FIN DE FICHIER " 
560 INPUT "";N%: IF N% < > 1 AND N% < 

> 2 THEN PRINT BI$; : GOTO 560 
570 HOME : PRINT "A L' OCCASION DU TRANSF 

ERT, VOUS " 

580 PRINT "POUVEZ REMPLACER CERTAINS CAR 
ACTERES" 

590 PRINT "PAR D ' AUTRE S (MAXI'.IO SUBSTIT 
UTIONS) " 

600 : PRINT "NBRE DE SUBSTITUTIONS DEMAN 
DEES ?" 

610 PRINT "(PAR DEFAUT, LES ";S/" SUBSTI 

TUT IONS" 
620 PRINT "PRECEDENTES ) " 

630 PRINT : INPUT "INDIQUEZ LE NOMBRE OU 

<RETURN>";W$ 
640 IF W$ = "" GOTO 750 

650 W « VAL (W$) : IF W < OR W > 10 TH 

EN PRINT BIS: GOTO 630 
660 5 = W: IF S = GOTO 810 
670 FOR I - i TO S 

680 HOME : PRINT "POUR LE CARACTERE ";T; 

it . rr 

690 INPUT "CODE ASCII DECIMAL INITIAL="; 
S1%(I) 

700 PRINT "CODE ASCII DECIMAL FINAL :" 
710 INPUT "(OU -i POUR ELIMINER LE CARAC 

TERE) ";S2% (I) 
720 IF 51% (I) < OR S1%(I) > 127 THEN 

PRINT BI$; GOTO 680 

730 IF S2%(I) < - 1 OR S2%(I) > 127 THE 

N PRINT BI$: GOTO 680 
735 IF (S2% (I) - - 1) AND (S$ = "O") TH 

EN PRINT BI$: GOTO 680 
740 NEXT I 

750 HOME ; PRINT "RAPPEL DES SUBSTITUTIO 

NS : " : PRINT 
760 IF S = THEN PRINT "AUCUNE SUBSTIT 

UTION": PRINT : GOTO 810 
770 FOR I = 1 TO S 

780 PRINT "CHR$(";S1% (I) ;")="; CHRS ($1% 
(D>; 

790 PR TNT - -> CHR$ (";S2% (I) ;")="; CHR$ 

(S2% an 
800 NEXT I: PRINT 

810 PRINT "NOM DU FICHIER BASIC A CREEP: 

820 INPUT " ";FI$ 

830 IF S$ = "N" GOTO 860 

840 PRINT n CE FICHIER DEVRA ETRE EXPLOIT 



E AVEC UN" 

850 PRINT "RECORD LENGTH= " ; LM + 2>" (ACC 

ES DIRECT) " 
860 PRINT : PRINT "<E5C> POUR CORRIGER U 

NE ERREUR" 

870 PRINT "<RETURN> POUR LANCER LA COPIE 

rt 

880 GET W$: TF W$ < > CHR$ (27) AND W$ 
< > CHR$ (13) THEN PRINT BI$ : GO 
TO 880 

890 IF W$ = CHRS (27) THEN HOME : GOTO 
360 

900 IF T$ = "O" THEN PB = PB + 2:NB -= NB 
- 2: REM SUP PRIME LES 2 PREMIERS B 
LOCS 

910 POKE AD + 12,1: REM FONCTION LECTUR 
E 

920 LA = 13: REM ASCII DU DERtflER CARAC 
TEPE LU 

930 NS - 0: REM COMPTAGE DES CARACTERES 

POUR LES FILE OF STRING 
940 HOME : PRINT "VOUS ALLEZ VOIR DEFILE 
R CE QUI" 

950 PRINT "S 9 ENREGIS TRERA SUR VOTRE DISQ 

UETTE BASIC": PRINT 
960 PRINT : PRINT DQ$;"MON 0" 
970 PRINT : PRINT DQ$/ "OPEN ";FI$/",D1" 
980 PRINT DQ$; "WRITE ";FI$ 
990 FOR I ^ 1 TO NB 

1000 BL - PB + I - 1: REM NUMERO DE BL 
CC 

1010 PI = INT (BL / 8) : REM NUMERO DE 
PISTE 

1020 Sl(l) - 2 * (BL - 8 * PI) t SI (2) = S 
1(1) -hi: REM NUMERO DES SECTORS 
PASCAL 

1030 POKE TR,PIt REM AFFICHE LA PISTE 
1040 FOR J ~ 1 TO 2: REM POUR LES 2 PAR 

TIES DU BLOC 
1050 ST - S(S1 (J)) 

1060 POKE SC, ST; REM AFFICHE LE SECTEUR 
1070 POKE OD f l: REM AFFICHE LE DERNIER 
DRIVE 

1080 POKE ND,2: REM AFFICHE LE DRIVE A 
UTILISER 

1090 CALL PG: REM APPELLE USERWTS 

1100 IF PEEK (ER) = GOTO 1140 

1110 PRINT DQ$; "CLOSE ";FI$ 

1120 PRINT "ERREUR DE LECTURE NUMERO "; 

PEEK (ER) 
1130 GOTO 1410 
1140 FOR K = TO 255 

1150 IF ( PEEK (BU + K) < > 16) OR (T$ 
- "N") OR (LA < > 13) OR (S$ = "0" 
) GOTO 1190 
1160 NI = PEEK (BU + K + 1) - 32 
1170 IF NI > THEN FOR II = 1 TO NI: P 

PINT " "; : NEXT II 
1180 K = K 4- 2 
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1190 LA - PEEK (BU + K) : LB = LA 

1200 IF LA * AND N% = 2 TEEN K = 25b:J 

= 2:1 = NB: GOTO 1340 
1210 IF S - OR (S$ = "0" AND (NS = O 

n MS > LS)) GOTO 1260 
1220 FOR L = 1 TO S 
1230 IF LA- < > S1%(L) GOTO 1250 
1240 LB - S2%(L) :L = S 
1250 NEXT L 

1260 IF S$ = "O" GOTO 1290 

1210 IF LB > - 1 THEN PRINT CHR$ (LB) 

r 

1280 GOTO 1340 

1290 IF NS = THEN LS = LB: GOTO 1310: 

REM LONGUEUR EFFECTIVE DE LA CHAIN 
E 

1300 IF NS < = LS THEN PRINT CHR$ (LB 
hi 

1310 IF NS = LS THEN PRINT : GOTO 1320: 

REM ENVOI D'UN RETURN 
1315 IF NS > LS THEN PRINT CHR$ (0) ; 
1320 NS = NS + 1 

1330 IF NS > LM + 1 THEN NS = 0: REM D 
EBUT D'UNE NOUVELLE CHAINE 



1340 NEXT K 
1350 NEXT J 
1360 NEXT I 
1310 PRINT 

1380 PRINT DQ$; "CLOSE ";FI? 
1390 PRINT DQ$/"NOMON O" 

1400 PRINT : PRINT : PRINT BI$;BI$;BI$; " 

C'EST FINI. . " 
1410 PRINT : PRINT "<RETURN> POUR COPIER 

UN AUTRE FICHIER " 
1420 PRINT "OU METTEZ LA DISQUETTE UTILI 

TAIRE" 

1430 PRINT " DANS LE DRIVE 1 ET FAITES 
<ESC>" 

1440 PRINT " POUR REVENIR AU MENU GENE 
RAT." 

1450 PRINT "OU UNE AUTRE TOUCHE POUR ARK 

JETER" 
1460 GET W$: PRINT 

1410 IF m = CHR$ (13) THEN HOME ; GOT 
O 300 

1480 IF W$ = CHR$ (27) THEN PRINT DQ$; 

"RUN MENU, Dl " 
1490 END 



Source USERWTS.ASS 

(Assembleur LISA 1.5) 

7 ORG ! 38091 

2 OBJ SI 000 

1 /MODE D'EMPLOI: 

4 /FAIRE LES MODIFICATIONS NEC ESS A IRES A 
LA TABLE JOB; 

5 ; NUM. DE PISTE ET DE SECTEUR 

6 ; CODE DE T. ' OPFRATTON A EFFECTUER 
I ;ET LANCER L r EXECUTION A L'ADRESSE PCM. 
9 



9 


IOB 


HEX 


01 


/IMPOSE 


10 


IBSLOT 


HEX 


60 


;1f,*SWT 6 


11 


IBDRVN 


HEX 


01 


/DRIVE 1 


12 


IBVOL 


HEX 


00 


■ NUMERO DE VQWMF. 


13 


IBTRK 


HEX 


00 


/ NUMERO DE PISTE 


14 


1BSECT 


HEX 


00 


; NUMERO DE SECTFJ1P 


15 


IBDCTP 


ADR 


10B*1 1 


/AP HESSE DE LA OCT 


16 


IBBUFF 


ADR 


IOB +21 




17 




ADR 


$0000 


;INUT1LISE 


18 


IBCMD 


HEX 


00 


/CODE COMMANDE 


19 


IBSTAT 


HEX 


00 


/CODE ERREUR 


20 


IBSMOD 


HEX 


00 


; NUMERO DE LA 










DISQUETTE EFFECTIVE 


21 


IOBPSN 


HEX 


GO 


/DERNIER SLOT UTILISE 


22 


IOBPDN 


HEX 


01 


/ET DERNIER DRIVE 


23 


DEVTPC 


HEX 


0001EFD 


/4 BYTES IMPOSES 


24 


BUFFER 


HF.X 


00 


jlER OCTET DU BUFFER 


25 




DFS 


255 


/LES 255 SUIVANTS 


26 


RADR 


HBY 


IOB 




27 


LADR 


an 


JOB 




28 


PGM 


LDA 


HADR 




29 




WY 


LADR 





30 


JSR 


$03D9 


/APPELLE RWTS 


31 


IDA 


IBSLOT 


/MAJ DERNIER SLOT 


32 


STA 


IOBPSN 


/ET DERNIER DRIVE 


33 


LDA 


IBDRVN 




34 


STA 


TODPDN 




35 


BCS 


NOTOK 




36 


LDA 


§10 


/MET SI OK 


37 


STA 


IBSTAT 




38 


NOTOK RT5 






39 


BRK 






40 


PAU 






41 


DCM 


"BSAVF 


USERWTS.CODE, 



AS1000, LSI 35" 

42 END 



Recapitulation USERWTS.CODE 



1000- 


01 


60 


01 


OU 


UO 


00 


UL~ 


94 


50 


94 


00 


00 


00 


00 


00 


60 


1010- 


01 


00 


01 


EF 


D8 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


1020- 


OB 


10 


oc 


00 


00 


00 


00 


on 


00 


00 


00 


00 


00 


00 


00 


00 


1030- 


00 


00 


; 


00 


00 


00 


00 


00 


00 


00 


OB 


00 


00 


00 


00 


00 


1040- 


00 


00 


PC 


00 


UO 


02 


00 


00 


00 


00 


OB 


00 


00 


10 


00 


10 


1050- 


00 


00 


00 


00 


00 


00 


B& 


80 


00 


00 


00 


80 


00 


00 


00 


80 


10 60- 


00 


00 


20 


00 


10 


00 


00 


00 


00 


08 


00 


00 


00 


00 


80 


80 


1O70- 


00 


00 


00 


00 


00 


00 


00 


02 


00 


00 


00 


00 


00 


00 


00 


00 


1080- 


FF 


FF 


Dt 


tr 


Ft' 


FF 


DF 


FF 


FF 


FT 


FF 


FF 


FF 


FF 


FF 


FF 


1O90- 


FF 


EF 


FF 


FF 


FF 


DF 


EF 


FF 


FF 


FF 


DF 


FF 


EF 


FF 


FF FF 


10AO- 


FF 


DF 


EF 


FF 


FF 


FF 


FF 


FF 


F7 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


1030- 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


EF 


FF 


1QCG- 


EF 


FF 


tr 


FF 


FF 


FF 


FF 


F7 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


1OD0- 


DF 


FF 


FF 


FF 


FF 


FF 


EF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


2 0E0- 


FF 


FF 


FF 


FF 


FF 


FF 


DF 


FF 


7F 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


10FO- 


DF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


EF 


FT 


1100- 


00 


VO 


VP 


VO 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


c: 


1110- 


00 


00 


00 


00 


00 


94 


CB 


AD 


EO 


95 


AC 


El 


95 


20 


D9 


03 


1120- 


AD 


cc 


94 


8D 


DA 


94 


An 


CD 


94 


8D 


DB 


94 


BO 


05 


A9 


ft /» 


1130- 


QD 


DB 


34 


60 


00 
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Un editeur HGR : 



Roland Jost 



Edigraph 



"WT es traitements de texte 
m classiques ne sont pas 
M j prevus pour l'ecriture 
™ m de textes scientifiques; 
il est & la rigueur possible d'ecrire 
des fonnules mathematiques avec 
indices ct exposants. Par contre, 
on ne peut dessiner facilement 
des formules chimiques ou des 
schemas electroniques, ou encore 
rajouler des commentaires sur des 
pages graphiques . 
Cest pourquoi nous avons 6crit 
EDIGRAPH. Nous aurions pu 
utiliser HRCG de TOOLKIT ou 
HAIFA (Pom's 5) ou HGRECR 
(Pom ? s 15), mais nous avons 
prefere -ecrire un programme 
entiferement en Basic pour mieux 
faire comprendre la gestion du 
graphisme Apple et permettre des 
modifications aisees par l'utilisa- 
teur final. 

EDIGRAPH est loin d'avoir les 
possibilites classiques d'un 
traitemem de texte, mais il permet 

par contre : 

• l'ecriture de textes et de formes 
enpage graphique; 

• le passage aise d'un type de 
caract&res £ un autre; 

• 1'affichage de caractfcres en 
mode inverse, en double 

hauteur ou soulignes; 

• caract£res en indice obtenus 
par CTRL-I ou bouton de 
manette (Apple ][), ou 
pomme ouverte ou TAB 
(Apple //e); 

• caractcres en exposant obtenus 
par CTRL-X ou bouton de 
manelte 1 (Apple ][), ou 
pomme fermee (Apple //e); 

• sauvegarde et rappel d'une 
page graphique; 

• manipulation de zones ecran; 
EDIGRAPH permet : 

1) de deplacer ou recopier 
une zone ecran; 

2) de mettre en mode inverse 
une partie de l'ecran; 

3) d'effacerune zone-ecran; 

4) de stocker une zone-ecran 



dans un tampon d'ou elle 
pourra etre rappelee a 
volonte. Le tampon pourra 
6tre sauv6 sur disquette. 
adaptation aisee aux besoins 
propres d'un utilisateur , car 
etant ecrit en Basic, les 
modifications logicielles sont 
simples. On peut aussi 
modifier les polices de 
caractcres ou raj outer de 
nouvelles formes. 



964 cases (24 lignes * 40 
colonnes) de 7 * 8 points 
elementaires. On pourra inscrire 
un caractfcre dans chaque case. 

Codage d'un caractere 

Le caractere est dessine dans une 
matrice 8*8, puis le codage est 
fait lignc par lignc. Par exemple, 
la lettre B sera codee comme suit 
sur huit octets. 



SVHTHESE du /wj-methoxy benzhydrol 

<rne*thode de GRIGNARD) 




-Br + M9 



> 




-Mg-Br 




CH 3 a-« )>-CHQ + 



CH 3 0- 





M9Br » 



H e 



OCH 



HC1 




Affichage 
de caracteres 

Gestion d'une 

page graphique 

La page graphique de l'Apple est 
divisee en 192 lignes et 280 
colonnes. Les colonnes sont 
regroupees par 7, chaque point 
correspondant a un des 7 bits 
d'un octet, dont le Seme bit 
contient le code couleur. L'ecran 
HGR est divise en 3 zones de 8 
groupes de 8 lignes. Par analogie 
avec la page TEXTE, la page 
graphique peut done etre 
consideree comme comportant 





binaire 


hex 


oct.l 




IE 


oct. 2 


66466646 


22 


oct.3 


66 466 6 46 


22 


oct. 4 


66644446 


IE 


oct. 5 


66466646 


22 


oct. 6 


66466646 


22 


oct. 7 




IE 


oct. 8 




00 


vous remarquerez que la lettre est 



inversee. 



Ecriture d'un caractere 
en page HGR 

Pour ecrire un caractfere, il faut 
afficher le contenu des 8 octets 
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qui servent & le defiiiLr les uns 
sous les autres, & l'endroit voulu. 
II faut done poker dans les 
bonnes adresses de la page 
memoire. 

L'adresse du sommct gauche 
d'une case est obtenue par la 
formule : 

BA = Z2 + 128 * ZV - 
384 * INT ((ZV-D/8) i 
ZH avec : 

Z2 = 8127 pour la page 1, 16255 
pour la page 2 

ZV = position verticale (0 <= ZV 
<= 23) 

ZH = position horizontal (0 <= 
ZH <= 39) 

Lecriture en memoire HGR des 
huit octets du caractfcre se fait par 
la boucle : 

FOR J = TO 7: POKE 
BA -h 1024 * J, PEEK 
(ZB + ZC * 8 +J) 
NEXT 

ZB + ZC * 8 correspond a la po- 
sition du caract£re dans la table 
chargte & l'adresse ZB. 

Pour un affichage en mode 

inverse, on cffcctuc au prcalablc 
un AND sur chaque octet:. Pour 
ccfe, faire 255 - PEEK (ZB+ZC * 
8+J). 

Pour un affichage en double 
hauteur, on affiche deux fois 
verticalement le meme octet 

Les jeux de caracteres 

Les caracteres utilises par 
ED I GRAPH sont scmblables a 
ceux du Toolkit ou de HAIFA. 
Cinq polices de caracteres sont 
stockees dans le fichier binaire 
SET charge k l'adresse $3000 
(12288) : 

$3O00-$32FF : car-actferes fran 
c;ais (avec les minuscules accen- 
tuees) 

$3300-$35FF ; caraeifcres grecs 
et symboles mathematiques 
(racine, integrals...) et 
chimiques (liaisons simple, 
double, triple, filches de 
reaction, etc.) 

$3600-$38FF; caracteres reduils 
en matrice 3*5 pour les indices et 
exposants 



$3900-$3BFF caracteres larges 
(avec minuscules accentuees) 

$3C00-$3EFF caracteres itali- 
ques (avec voyelles accentu6es) 

Une police de caracteres est 
activee par la frappe de ESC, 
suivi du numero (1-5) de la 
police. 

Si Ton veut taper un seul 
caractere des polices 2 ou 3 on 
pourra utiliser : 

CTRL G : caract&rc grec ou 
graph ique 

CTRL I ou bouton manette ou 
d : caractfere en indice 

CTRL X ou bouton manette 1 ou 
6 : caractere en exposant. 



La table de formes 

Pour afficher des symboles plus 
complexes, EPIGRAPH utilise 
aussi une table de formes 

classique. Elle est chargee a 
Tadresse $6000 et comporte 
proviso irement 2 formes 
chimiques (benzene et 
cyclohexane) et 6 formes 
d'electronique (resistance, inter- 
rupteur, generateur, etc.). 
I Jne forme donnee est appelee par 
CSC suivi de F (ou G) et du 
numero de la forme. F trace la 
forme horizontalement (ROT = 
0), G la trace verticalement (ROT 
= 16). 



Le traitement de 
blocs 

EDIGRAPH permet le traitement 
de zones rectangulaires de l'ecran 
graphique . Ces 'blocs' pourront 
etre dcplaccs, dupliques, effaces, 
inverses, sauves sur disquette et 
reincorpores & d'autres pages 
graphique s. 

Deplacer le curseur au coin 
superieur gauche de la zone k 
trailer et taper ESC B. Le curseur 
se reduit k un point. 

a) saisie du bloc dans le 
tampon : Deplacer le curseur au 



coin inferieur droit du bloc. Taper 
ESC W pour recopier le contenu 
de la zone ainsi delimitee dans lc 
tampon. Donner un nom de 
fichier pour sauver le bloc sur 
disquette ( le fichier s'appelera 
BLOC .nom), sinon taper simple- 
ment j. 

b) mettre une zone 6cran en 

inverse : le curseur ayant e:e 
amene au coin inferieur droit . 
taper ESC N. 

c) effacer une zone : comrae 

precedemment, mais taper ESC 
C. 



W'^SJ^T -./0 123456789 « i < = >?<3ABCDEFG 
HIJKLMN0PORSTUUUXYZ*g^8_\abcdef Qhuklmn 



Police n*2 



B 



OTT-?X?cr7"Wu»:^f 1 1 "i-M 



Police n*3 



! " # * K ■ M )tt ^ - . / D 12 3H5BT93 : ; < = >?COH CDEF C 

H I J K L M N D P n. R 5 t u u N H v z c '-i 3 -!»_ labcdE-TahiJklmn 
DDOff tu UUIX11 ■ 



HIJKLrWOPORSTUUHXVZCat^abcdefghi jklim 
opqrstuvuKyz&u^"| 



Police n*5 



B 



■ /&t23V5S?&9: s <=>?^. f tSCO£FS 
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d) deplacer un bloc : Taper ESC 
B aprfes positionnement du 
curseur au coin infericur droit. 
Deplacer le curseur jusqu'3 la 
nouvelle position du bloc et taper 
ESC D. La zone initiale sera 
effacee. 

e) copier un bloc : comme ci- 
dessus, mais taper ESC C & la 
nouvelle position. L'ancienne 
zone ne sera pas effacee. Une 
autre possibility de duplication est 
de rappeler la zone tampon . 

f) rappel d'un bloc : Ce 
traitement est le seul a ne pas etre 
active par ESC B. Amcncr le 
curseur a la position souhaitee 
(correspondant au coin superieur 
gauche du bloc) et taper ESC R. 
La frappe de j copiera la zone 
tampon, sinon donner le nom du 
fichier & rappeler de la disquette. 



Rernarques : 

La procedure de traitement des 
blocs est lente, done patience. 
Aucun test n'est effectue pour 
savoir si lc bloc rccopie pourra se 
loger 3 sa nouvelle place. 



Les commandes 

EDKtRAPH utilise trois niveaux 
d'analyse des commandes : 

1 : commandes par la touche 
CTRL , principalement pour le 
deplacement du curseur , et pour 
obtcnir les caracteres non 
disponibles au clavier du ][+ 

2 : commandes activees par 
ESC : changement de police, 
changement du mode d'affichage 
(normal ,double hauteur,inverse). 

3 : enfin les touches F et G tapees 
apr&s ESC, permerxent d'afficher 
la forme dont le numero suit. 

I ,es touches et # permettent 
respectivement r&riture en indice 
ou en exposant. 



Fonctions activees par la touche ESC 

ESC 1 caracteres fran^ais 

ESC 2 caracteres grecs et graphiques 

ESC 3 indices ou exposants 

ESC 4 caracteres epais 

ESC 5 caracteres italiques 

ESC B activation du mode "BLOC 

ESC C copie d'un bloc a la nouvelle position du curseur 

ESC D deplacement d'un bloc k la nouvelle position du curseur 

ESC E effacement d'un bloc-ecran 

ESCN negatif d'un bloc 

ESC F tracd d'une forme avec ROT=0. A faire suivre du numero de 
la forme 

ESC G trace d'une forme avec ROT=l fi. Kaire suivre du numero de 
la forme 

ESC H vide l'ecran HGR et rarnene le curseur au point superieur 
gauche 

ESC I affiche les instructions. 

ESC L chargement d'une image graphique en page 2. 

ESC P hardcopy 

ESC Q sortie du programme. 

ESC S sauvegarde de la page graphique 

ESC V bascule video normale/inverse 

ESC Y bascule hauteur normale/double. 

ESC - bascule soulignement 

ESC / affiche le symbole 'integrate' 

Fonctions activees par la touche controle 

CTRL D affiche le catalogue de la disquette. 
CTRL G le prochain caractere frappe sera pris dans la police 2 . 
CTRL H deplacement du curseur vers la gauche. Avantageusement 
remplace par <= 

CTRL I le prochain caractere sera place en indice (police 3A) 
CTRL J deplacement du curseur vers le bas . (utiliser U sur le //e) 
CTRL K deplacement du curseur vers lc haut (utiliser ft sur le lit) 
CTRL S bascule majuscule/minuscule (utile seulement sur le ][+) 
CTRL X le prochain caractere sera en exposant (police 3B) 
CTRL A accent circonflexe. Apres la frappe de CTRL A , le curseur 
recule d'une position. Puis taper la voyelle d6sir£e 

Des caracteres non disponibles sur le clavier du ][+ (e e [ ] u $ * ) 
peuvent etre obtenus £ l'aide de Shift M, Ctrl Shift M, Ctrl N, Ctrl O, 
Ctrl Z. Faites l'essai en mode minuscule et majuscule. 

Structure du programme 



L 200-390 



L 400-530 
L 600-790 
L 900-990 

L 1000-1900 
L 3000-3100 
L 4000-4100 
L 5000-5200 
L 6000-6200 
L 7000-7080 
L 8000-8070 
L 9000-9100 
L 10000-1 1000 



sous-programmes d'ecriture de caracteres en mode 
graphique, places en debut du programme pour 
accelerer l'execution 

sous-programmes de traitement des blocs 
gestion de l'afflchage 

le mode d'ecriture inverse, normal ou double hauteur 

est affichee dans le coin inferieur droit dc l'ecran 

positionnement et affichage des formes 

passage en mode HGR2 sans effacement 

remise a zero de certaines variables 

sauvegarde de la page graphique 2 sur disquette 

rappel d'une image graphique en page 2 

sauvegarde d'un bloc 

lecture d'un bloc 

traitement des erreurs DOS 

analyse des touches frappees. Touches CTRL 
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L 12000-14000 commandes activdes par la touche ESC 

L 15000-18000 appel du programme de hardcopy (5 installer par 

rutilisateur) 
L 18000-19000 saisic du numcro dc forme 
L 200O0-202I0 affichage des commandes 

L 24000-26030 initialisation . Chargemeni des tables (caraeteres et 

formes). Pour une hardcopy, rajouter ici le chargement 
du sous-programme ndcessaire 

ligne 30000 redemarrage a chaud, sans perte des variables, par un 
GOTO 30000 



Occupation de la rnemoire 

$800 EDIGRAPH 

$2FFF HIMEM 

$3000 police n"l 

$3300 police n°2 

$3600 police n*3 

$3900 police n°4 

$3C00 police n°5 

$4000 page graphique 

$6000 table de formes 

$7000 tampon 

$9000 fin du tampon 

EDIGRAPH a intentionnellement 
ete ecrit en BASIC sans utiliser 
de sous-programmes assembleur, 
pour permettre a chacun de 



l'adapter a ses propres besoins. II 
souffre done dc la lentcur dc cc 
langage, particulierement pour 
l'ecriture en double hauteur et le 
traitement des blocs. 
Pour obtenir malgr6 tout une 
vitesse d'execution acceptable, 
tous les programmes de trace ont 
ete places en tete du programme 
et optimises au maximum. Le 
BASIC est suffisamment rapide 
pour permettre une vitesse 
moyenne de frappe des caract&res 
en taille normale. En mode 
double hauteur, l'affichage est 
plus lent et pourrait bencficier 
d'un traitement en assembleur. La 



lenteur d'execution qui n'est pas 
un handicap lors de la phase 
d'apprentissage pourra etre 
supprimee si vous disposez d un 
compilateur. 
Rerriarques 

Sur un Apple ][+ les manettes 
doivent Sure connect^es. Sinon, 
supprimer la ligne 10040. 
EDIGRAPH a ete developpe sur 
un ][+ et ses commandes 
adaptees & son clavier. II utilise 
les possibilites supplementaires 
du clavier du //e, mais I'utilisateur 
preferera peut-etre modifier 
l'attribution de certaines touches. 
Pour utiliser EDIGRAPH, faire 
RUN EDIGRAPH. Les fichiers 
SET et FORMES4 sont charges 
par le programme. 
En cas de 'plantage', taper CTRL 
RESET, puis GOTO 30000. 
L'image HGR en rnemoire n'est 
pas alteree. Le curseur est 
repositionne dans le coin 
superieur gauche de l'ecran. 



Programme Edigraph 



40 

100 

110 

120 

130 

140 

150 

160 

170 

200 
210 

220 
230 



240 



250 



HIMEM: 12287 

REM ************************** 

REM * * 

REM * EDIGRAPH - V.2 * 

REM * * 

REM * R.JOST - 1985 * 

REM * * 

REM ************************** 

GOSUB 24000: GOSUB 20010: GOSUB 3020 
:ZE = 49: GOSUB 910: GOTO 10000: END 

REM SOUS-PROGRAMMES UE TRACE DE LET 
TRES 

FOR J = NK TO NJ: POKE BA + 21 (J), P 
EEK (ZX * J) : NEXT : RETURN : REM 

MODE NORMAL 
FOR J = NK TO NJ: POKE BA + Z1{J),Z1 
% - PEEK (ZX + J) : NEXT : RETURN : 
REM MODE INVERSE 

ZV = ZV - 1 :BA = FN Bl (ZH) : FOR J = 
NK TO 7: POKE BA * Zl (J) , PEEK (ZX 

+ INT (J / 2) ) : NEXT : ZV = ZV + 1:B 

A = FN Bl (ZH) : FOR J = 8 TO NJ + 8: 
POKE BA + Zl * (J - 8), PEEK (ZX + 
INT (J / 2) ) : NEXT : RETURN : REM 

AFFICHAGE DOUBLE HAUTEUR 



260 ZV = ZV - J :BA = FN Bl (ZH) t FOR J = 
NK TO 7 : POKE BA + Zl (J) , 21% - PEE 

K (ZX -f TNT (J / 2)): NEXT : ZV = ZV 
+ 1:BA = FN Bl (ZH) : FOR J ~ 8 TO N 

J + 8 : POKE BA + 21 * (J - 8) ,Z1% - 
PEEK (7.X + TNT (J J 2)): NEXT : RE 

TURN : REM INVERSE ET DOUBLE HAUTE V 

R 

270 BA = FN Bl (ZH) 
280 CZ = PEEK (BA + ZZ) 

290 ZA = 127D9 + 28 * (FL < > 0) : POKE 
BA + ZZ, PEEK (ZA) : RETURN : REM AFF 
ICHAGE DU CURSEUR 

300 POKE BA f ZZ f CZ: RETURN : REM EFFAC 
EMF.NT DU CURSEUR 

400 REM TRAITEMENT DES BLOCS 

410 DX = NX - X:DY = NY - Y + 1 

420 GOSUB 300 

430 ZW - ZV 

440 FOR K - TO DY: :2V - Y 
Bl (X) :ZV = ZW + K:BB = 
450 FOR 1 = TO DX:BC = BA 
/ J 

4S0 FOR J = TO 7:CH = PEEK (BC + Zlfi 

w 

470 IF FL « 7 THEN TA - TA I 1 : POKE TA, 

CH: GOTO 520 
475 IF ZC = 6 7 THEN POKE BD + Zl (J) , 3 
GOTO 520 

480 IF ZC - 69 THEN POKE BC + Zl (J) , 



i K:BA - FX 

FN Bl (ZH) 
+ I:BD = BB 
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POKE BD + Z1(J),CH: GOTO 520 
490 IF FL = 6 THEN TA = TA f 1 ; POKE BP 

+ 21 (J) , PEEK (TA) ; GOTO 520 
500 IF ZC = 78 THEN POKE BC * Zl (J) , Zl % 

- Of: GOTO 520 
510 IF ZC ~ 69 THEN POKE BC -h Zl (J) , : 

GOTO 520 

520 NEXT : POKE - 16336, PEEK ( - 16336 

) ; NEXT NEXT 
530 ZV = ZV + 1:FL = 0: GOSUB 270:ZV = Z 

W: RETURN 
600 : 

610 REM SOUS -PROGRAMME D'AFFICHAGE 
620 : 

630 Z = PEEK ( - 16336) - PEEK ( - 163 
36) 

640 BA - FN Bl (ZH) 

645 IF ZC = 30 THEN ZC = 62: GOTO 660 
650 ZC = ZC - 32 + 32 * ( (ZF = 1) AND (Z 

C > 64 AND ZC < 97)) 
660 IF Fl = 1 THEN WB « ZB:ZB = 13824 
670 IF Fl =2 THEN WB « ZB:ZB = 13826 
680 IF Fl =3 THEN WB = ZB : ZB = 13056 
690 ZX = ZB 4 8 * ZC 

700 IF ZM = 1 AND ZL = 1 THEN GOSUB 260 
: GOTO 740 

710 IF ZM = 1 THEN GOSUB 290: GOSUB 240 
: GOTO '140 

720 IF ZL < > THEN GOSUB 250: GOTO 7 
40 

730 GOSUB 23V 

740 NK - 2 * (Fl = 10) : IF Fl - 10 THEN 
GOSUB 300 :ZH = ZH - 1 : GOSUB 290 :Fl 
= 

745 BA - BA + 2 

750 ON ZH < 40 GOSUB 290 

760 ZH = ZH + 1: IF ZH > 40 THEN ZH ■ 1; 

ZV = ZV + 1 + (ZL - 1) : GOSUB 270 
770 IF ZH = 37 THEN PRINT CHR$ (7); 
780 IF Fl < > THEN ZB = WB:F1 - 
790 RETURN 

900 REM AFFICHAGE DU MODE DANS LA CASE 
40,24 

910 ZX - 12288 * 1536 * (ZL = 0) + Q * ( 
ZE - 32) 

920 IF ZM = 1 THEN FOR J = TO NJ: POK 
E 17399 f Z1(J),Z1% PEEK (ZX + J) 
: NEXT : RETURN 
930 FOR J = TO NJ: POKE 17399 + Zl (J) , 

PEEK (ZX + J) : NEXT : RETURN 
940 REM EFFACEMENT DE LA CASE 40 f 24 
950 BX = BA:BA = 17399: FOR J = TO NJ: 
POKE BA * 21 (J) , PEEK (ZB I J) : NEX 
T :BA = BX: RETURN 
960 END 
1000 : 

1010 REM ***** DESSIN D'UN CYCLE ***** 
1020 : 

1030 IF SH > 2 THEN 1070 



1040 GOSUB 300 :XZ =ZH*7-5+5* (Z 
B - 13056 OR Fl - 1) :YZ - ZV * 8 - 

16 * (Fl - 0) 
1050 IF XZ < 7 OR YZ < 1 OR XZ > 256 OR 

YZ > 168 THEN RETURN 
1060 DRAW SB AT XZ, YZ : ZH - ZH + 4 * (Fl 

= 0) :F1 = 0: GOSUB 270: RETURN 
1070 REM ELECTRONIQUE 

1080 GOSUB 300:XZ ~ZH*7-6 + 2* (Z 
C = 71) 

1090 YZ=ZV*8-5-3* (ZC = 71) 
1100 DRAW SH AT XZ r YZ:ZH - ZH + 3 * (SH 
= 6 OR SH = 7 OR SH = 8) + 4 * (S 

H = 4) + 5 * (SH - 5) : GOSUB 270; 

RETURN 

3000 REM ***** TEXT -> HGR2 ***** 
3010 : 

3020 POKE 49232, 0: POKE 49234, 0: POKE 4 
9237,0: POKE 49239,0: GOSUB 900: R 
ETURN 

4000 t 

4010 : 

4020 REM ***** MISE A ZERO DES POINTEU 
RS ***** 

4030 ZE = 49:ZF = 0:ZM - 0:F1 = : ZL = 
0:ZB = 12288:TA - 28676:F2 - 0:F3 
= 0:ZH = 1:2V = 1:FL = 0: RETURN 

5000 REM 

5010 REM ***** SAUVE PAGE GRAPH IQUE ** 
5020 : 

5030 ONERR GOTO 9000 

5040 PRINT CHR$ (7);: GOSUB 300 : TEXT 
: HTAB 1: VTAB 23: CALL - 868: IN 

PUT "SAUVEGARDE DE LA PAGE ";N$: I 

F N$ = "" THEN 5060 
5050 GOSUB 30 0: PRINT D$"BSAVE "N$",A$4 

Q0Q,L$1FF8" : GOSUB 3020 
5060 GOSUB 3020 
5070 RETURN 
6000 : 

6Q10 REM ***** CHARGE PAGE GRAPH IQUE ** 
6020 : 

6030 ONERR GOTO 9000 

6040 PRINT CHR$ (7);: TEXT : HTAB 1: V 
TAB 23: CALL - 868: INPUT "CHARGE 
MENT DE LA PAGE *;N$S IF N$ = T 
HEN 6060 

6050 PRINT D$ "BLOAD "N$",A$4000" 
6060 GOSUB 3020: GOSUB 290 
6070 RETURN 
7000 : 

7010 REM ***** SAUVE UN BLOC ***** 
7020 : 

7030 ONERR GOTO 9000 

7040 PRINT CHR$ (7);: TEXT : HTAB 1: V 
TAB 23: CALL - 868: INPUT "SAUVEG 
ARDE DU BLOC ";N$: IF N$ - THEN 
5060 

7050 GOSUB 300 
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7060 PRINT D$"BSAVE "N$".BLOC,A$ 

7000 r L"(DX * 1) * (DY + 1) * 
8 + 97070 GOSUB 3020 
1080 RETURN 
8000 : 

8010 REM ***** CHARGE UN BLOC ***** 
8020 : 

8030 ONERR GOTO 9000 

8040 PRINT CBR$ (7) ; : TEXT : HTAB 1: V 
TAB 23: CALL - 868: INPUT "CHARGE 
MENT DU BLOC ";N$: IF N$ - THEN 
5060 

8050 PRINT D? "BLOAD "N?" .BLOC, A?7000" 
QOCO GOSUB 3020 
8070 RETURN 

9000 REM THAI TEMENT ERREURS 
9010 TEXT ; HOME 

9020 ER = PEEK (222} : EL = PEEK (218) 

•f 256 * PEEK (219) 
9030 IF ER - 4 THEN PRINT "DISK PROTEG 

E EN EGRITORE": GOTO 9080 
9040 IF ER = 6 THEN PRINT "CE FICHIER 

N'EXISTE PAS": GOTO 9080 
9050 TF ER = 8 THEN PRINT "ERREUR I/O" 

: GOTO 9080 
9060 IF ER = 9 THEN PRINT "DISK REMPLI 
GOTO 9080 

9065 IF ER = 255 THEN PRINT "TAPER UNE 
TOUCHE POUR CONTINUER" ; GOTO 9080 
9070 PRINT "ERREUR "ER" DANS LA EIGNE " 
EL: END 

9080 POKE 216,0: GET R$ : HOME 
9090 GOSUB 3020: GOTO 10030 
10000 : 

10010 REM *** ANALYSE DES COMMANDES *** 
10020 : 

10030 WAIT - 16384,128, 127 :ZC - PEEK { 

- 16384) - 122: POKE - 16368,0 
10040 Fl = Fl + ( PEEK ( - 16287) > 127) 

+ 2 * ( PEEK ( - 16286) > 127) 
10045 IF ZC = 30 THEN Fl ■ 10: GOSUB 630 

: GOTO 10030 
10050 IF ZC > 31 THEN GOSUB 630: GOTO 
10030 

10060 IF ZC = 4 THEN PRINT : TEXT : HOM 
E : PRINT CHR$ (4) "CATALOG": CALL 
- 651: GOSUB 3020: GOTO 10030 
10070 IF ZC = 27 THEN GOSUB 12010: GOTO 
10030 

10080 : 

10090 REM DEPLACEMENT DU CURS EUR 
10100 : 

10110 IF ZC - 8 THEN GOSUB 300 : ZH = (ZH 

- 1) * (ZH > 1) + 40 * (ZH = 1);Z 
V = ZV - (ZH = 40) * (1 * (ZL = 1) 
): GOSUB 270: GOTO 10030 

10120 TF ZC = 10 THEN GOSUB 300 :ZV = ZV 
f (ZV < 24) + ((ZL = 1) AND (ZV < 
23)): GOSUB 270: GOTO 10030 



10130 IF ZC = 11 THEN GOSUB 300 :ZV = ZV 

- (ZV > 1) - ((ZL - 1) AND (ZV > 
2)): GOSUB 270: GOTO 10030 

10140 IF ZC = 13 THEN GOSUB 300:ZH = Is 
ZV = ZV f (ZV < 24) + ((ZL = 1) AN 
D (ZV < 23)): GOSUB 270: GOTO 1003 


10150 IF ZC = 21 THEN GOSUB 300 :ZH = (Z 
H + 1) * (ZH < 40) + (ZH - 40) :ZV 
= ZV + (ZH = 1) * (1 + (ZL = 1)): 
GOSUB 270: GOTO 10030 

10160 : 

10170 REM TOUCHES CTRL POUR APPLE 11+ 
10180 : 

10190 IF ZC = 9 THEN Fl =1: GOTO 10030: 
REM CTRL- 1 => LETT RE SU1VANTE EN 
INDICE 

10200 IF ZC = 14 THEN ZC = 95: GOSUB 630 
10210 IF ZC = 15 THEN ZC = 92: GOSUB 630 
10220 IF ZC - 16 THEN ZC = 96: GOSUB 630 
10230 IF ZC = 19 THEN ZF = (ZF = 0) : GOT 

O 10030: REM BASCULE MAJUSCULES/MI 

NUSCULES 

10240 IF ZC = 24 THEN Fl =2: GOTO 7 0030 
10250 IF ZC = 7 THEN Fl =3: GOTO 10030 
10260 IF ZC = 26 THEN ZC - 126: GOSUB 63 


10270 IF ZC = 29 THEN ZC = 91: GOSUB 630 
10280 GOTO 10030 
12000 : 

12010 REM : LA TOUCHE ESC 
12020 : 

12030 WATT - 16384, 128, 127 :ZC = PEEK ( 

- 16384) - 128: POKE - 16368,0 
12040 IF ZC < 49 OR ZC > 53 THEN 12060 
12050 ZE = ZC: GOSUB 300 :ZB = 12288 f 76 

8 * (ZC - 49): GOSUB 270:ZX = 1228 
8 4-8* (ZC - 32) : GOSUB 900: RETU 
RN 

12060 IF ZC = 45 THEN NJ = 13 - NJ: RETU 
RN : REM TIBET -> SOULIGNE (BASCUL 
E) 

12063 IF ZC = 43 THEN Fl =3: GOSUB 630: 
RETURN : REM + OU - PAR FRAPPE 
DE + 

12065 IF ZC = 47 THEN Fl = 3 : ZL = 1 : ZC *■ 

64: GOSUB 630 : ZL = 0: RETURN r RE 
M SYMBOLE SOMME OBTENU PAR ESX 

/ 

12066 IF ZC - 21 THEN Fl = 3:ZC = 62: GO 
SUB 630: RETURN : REM FLECHE DROI 
TE 

12067 IF ZC - 8 THEN Fl - 3 : ZC - 60: COS 
UB 630: RETURN : REM FLECHE GAUCB 
E 

12068 IF ZC = 10 THEN Fl - 3 : ZC - 59 ; GO 
SUB 630: RETURN : REM FLECHE VFMT 
ICALE HAS 

12069 IF ZC = 11 THEN Fl - 3:ZC - 94: GO 
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SUB 630: RETURN : REM FLECHE VERT 
ICALE HAUT 

12070 IF ZC - 66 THEN GOSUB 300 :FL - FL 
* 1:NX = ZH * (FL = 2) :NY = (ZV - 
1) * (FL = 2) : IF FL = 1 THEN X = 
ZH:Y = ZV + 1: GOSUB 270; RETURN 
; REM : -> TRAVAIL SUR BLOCS 
12075 IF FL - 3 THEN FL = 
12080 IF ZC = 66 THEN RETURN 
12090 IF ZC - 70 THEN ROT" 0: GOSUB 180 
10: RETURN r REM F => FORME AVEC R 
OT=0 

12100 IF ZC = 71 THEN ROT= 16: GOSUB IB 
010: RETURN : REM G => FORME AVEC 
R0T=16 

12110 IF (ZC = 72 OR ZC = 104) THEN ZH = 
1:ZV m It HGR2 z GOSUB 270: RETUR 

N : REM H(OME) -> VIDE L'ECRAN HGR 
12120 IF (ZC = 76 OR ZC - 108) THEN COS 

(IB 6010: RETURN 
12130 IF (ZC = 81 OR ZC = 113) THEN TEX 

T : END : REM Q => QUITTER LE PROG 

RAMME 

12140 IF (ZC = 82 OR ZC = 114) THEN TA = 
28676: GOSUB 8030 :DX - PEEK (TA 
- 1) :DY = PEEK (TA) :X - ZH:Y = ZV 
:FL = 6: GOSUB 420: RETURN : REM R 
=> RAPPEL D'UN BLOC 
12150 IF FL - 1 AND (ZC - 78 OR ZC = 69) 
THEN NX = ZH : NY = ZV - 1 : GOSUB 4 
10: REM INVERSI 
12160 IF FL = 2 AND (ZC = 67 OR ZC = 68) 
THEN GOSUB 410: RETURN : REM COP 
IE OU DE PLACEMENT BLOC 
12170 IF (ZC « 83 OR ZC » 115) THEN GOS 
UB 5010: RETURN : REM S ~> SAUVE U 
NE PAGE GRAPH I QUE 
12180 IF (ZC = 73 OR ZC = 105) THEN GOS 
UB 20010: GOSUB 3020: RETURN ; REM 
I OBSTRUCTIONS 
12190 IF (ZC = 86 OR ZC = 118) THEN ZM = 
(ZM - 0) : GOSUB 90 0: RETURN : REM 
BASCULE VIDEO INVERSE /NORMAL 
12200 IF FL = 1 AND (ZC = 87 OR ZC « 119 
) THEN TA = 28676 :FL = 7 : NX = ZH:N 
Y ~ ZV - J : GOSUB 410: POKE 28675 f 
DX: POKE 28676, DY: GOSUB 7030: RET 
URN : REM W => SAUVEGARDE D'UN BLO 
C 

12210 IF (ZC = 89 OR ZC = 121) THEN ZL = 
(ZL - 0) : GOSUB 90 0: RETURN : REM 
Y => BASCULE DOUBLE HAUTEUR 

12220 RETURN 

15000 : 

15010 REM HARD COPY 

15020 REM METTRE ICI L'APPEL DU SOUS -PR 

OGRAMME DE HARDCOPY 
15100 RETURN 
18000 : 



18010 REM SHAPES 
18020 : 

18030 WAIT - 16384,128, 127 :SU - PEEK ( 
- 16384) - 128 - 48: POKR - 1636 
8,0 

18040 IF SB < 1 OR SH > 9 THEN 18030 
13050 GOSUB 1020 
18060 RETURN 
20000 : 

20010 REM ***** INSTRUCTIONS ***** 
20020 ! 

20030 TEXT : HOME 

20040 INVERSE : PRINT "EDITEUR HGR : EDI 
GRAPH (C) 1985 R.JOST ";: NORMAL 

20050 INVERSE : PRINT "<ESC>;": NORMAL 

20060 PRINT "1-5: POLICES 1 A 5. B: TRAI 
TEMENT BLOCS" 

200 70 PRINT "F: FORMES DEG. G: FORM 

ES 90 DEG" 

20080 PRINT "H: HOME I: INST 

RUCTIONS" 

20090 PRINT "L: CHARGE PAGE HGR. S: SAUV 

E PAGE HGR" 
20100 PRINT "R: LECTURE BLOC P: HARD 

COPY. " 

20110 PRINT "Q: QUITTER. -i MODE 

SOULIGNE. " 

20120 PRINT "V: BASCULE VIDEO Y: BASC 

ULE HAUTEUR" 
20130 PRINT : PRINT "SOUS-COMMANDES BLOC 

S" 

20140 PRINT "N: NEGATIF D: DEPL 

ACE UN BLOC. " 
20150 PRINT "C: COP IF. BLOC E: EFFA 

CE UN BLOC. " 
20160 PRINT "W: ECRITURE BLOC. " 
20170 PRINT : INVERSE : PRINT "CTRL": NO 

RMAL 

20180 PRINT "S: BASCULE MAJ/MIN. G: LETT 

RE GRECQUE. " 
20190 PRINT "I: INDICES. X: EXPO 

SANTS. " 

20200 PPTNT "J: CURSEtTR BAS . K: CURS 

EUR HAUT. " 
20210 PRINT "D: CATALOG" 

20220 PRINT "<RETURN>: RET OUR CHARIOT" 
20230 CALL - 651 
20240 RETURN 
24000 : 

24010 REM ****** INITIALISATION ***** 
24020 REM 

25010 Zl = 1024:Z1% = 255:Z2% - 128-.Z2 - 
16255 :Z3 = 984 :ZZ = 7168 :ZB = 122 
88:BA = 16384-.ZH = 1 : ZV = 1:ZX - 
:CZ = 0:NJ = 7:B1(0) = 0:ZM = 0: 
25015 TA = 28676: REM ZONE TAMPON 
25020 DEF FN Bl (Z) - Z2 + Z2% * ZV - Z3- 

* INT ((ZV - 1) / 8) + Z 
25030 Z1(0) = OtZl(l) = 1024 :Z1 (2) = 204 
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8:Z1(3) - 3072:21 (4) - 4096:21 (5) 
= 5120:7.1(6) - 6144:Z1(7) = llbB 

26000 d$ - offtf w 

26010 FRINT D$ "BLOAD SET,A$3000" 
2S020 PRINT D$ "BLOAD F0RMES4 , AS 6000" : B 
OKE 232,0: POKE 233,96: SCALE= 1: 



HC0LOR= 3 
26030 RETURN 

30000 REM REDEMARRAGE A CHAUD 
30010 : 

30020 HOME : GOSUB 4030: UU5UB 3020: GOT 
10030 
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3C10- B6 02 00 80 00 80 00 00 
3C18- 80 A8 FE 94 BF 6A 00 OO 
3C20- 90 UC 02 98 30 9? 04 VO 
3C28- C7 A5 97 88 F4 02 Fl 00 
3C30- 8C 92 BP 84 SA 92 AF. 00 
3C3S- 99 89 00 80 00 80 00 00 
3C40- EO 98 OC 86 06 86 OC 00 
3C48- 98 BO 60 BO 30 8C 06 00 
3C50- BO D4 28 EB 24 95 06 00 
3C58- 80 SB 18 BF OC 86 00 OO 
3CCO- 80 80 00 80 00 8C 08 04 
3C66- 80 BO OU BE UU 8V 00 00 

3C70- 90 80 00 80 00 80 OC 00 

3C78- CO AO 90 88 B4 87 81 00 
3C80- B9 E4 64 B2 32 99 OE 06 
3C88- BO B8 30 98 18 8C OC 00 

3C90- B8 E4 60 B8 OC 83 IF 00 

3C98- B8 E4 60 9C 30 99 OE 00 

3CA0- E4 52 32 BF 18 8C OC 00 

3CA8- FC B4 9E BO 30 99 OE 00 

3VB0- B8 E4 04 9E 32 99 OE OO 

3CB8- FC EO BO 98 OC 86 06 OO 

3CC0- B8 E4 64 BE 32 99 OE 00 

3CC8- B8 F.4 64 BC 30 98 OE OO 
3CD0- 80 BO 00 98 00 BC 00 OO 
3CD8- 80 80 00 98 UO BC 08 04 

3CE0- BO 98 8C 86 BC 98 BO OO 

3CE8- 80 80 3E 80 IF 80 OQ 00 

3CFQ- 86 SC 98 BO 98 8C 86 00 

3CF8- 9C B2 30 88 08 80 OC 00 



3D00- 30 40 38 20 3C 13 IE 00 
30QS- 08 Z4 64 flfi 32 99 19 00 
3D10- B8 E4 64 9E 32 B9 IF 00 
3D18- F8 BC 04 82 02 83 IE 00 

3D20- B8 E4 64 B2 32 99 OF 00 

302 8— FB 8C OC 9E 06 83 IF 00 

3D30- F8 BC OC 9E 06 83 03 00 

3D38- B8 E4 04 82 3A 99 IE 00 

3D40- CC E4 64 BE 32 99 19 00 

3D48- B8 98 13 BC OC 96 87 00 

3D50- FO EO 6 BO 32 99 OE 00 

3D58- CC E4 34 8E 1A 99 31 00 

3D60- 9C 8C OC 86 06 83 IF 00 

3068- FC 04 54 F.A 6A R 1 31 00 

3D70— CC EC 6C AA 3A 99 19 00 

3D78- B6 E4 64 B2 32 99 OE 00 

3D80- B8 E4 64 9E 02 81 01 00 

3D88- B8 E4 64 B2 2A 99 2E 00 

3D90- B8 E4 64 9E OA 8 9 11 00 

3D98- B8 E4 04 9C 30 99 OE 00 

3DA0- FE 88 OB 84 04 82 02 00 

3DA8- CC E4 64 B2 32 99 OE 00 

3DB0- C2 E2 52 9A SE 3 6 82 00 

3DB8- C6 E2 6A B5 35 95 IE 00 
3DC0- C6 E6 2C 9C IC 9A 33 00 
JUC8- Cb E4 B4 9C BC 86 83 VO 

3DD0- FE BO 98 8C 86 83 3F 00 

3DD8- F8 BC OC 86 06 83 OF 00 

3DE0- 01 02 04 08 10 20 40 00 

3DE8- FB EO 60 BO 30 98 IE 00 

3DF0- BO B8 54 88 08 84 04 00 
3DF8- QO 00 00 00 00 00 00 7F 
3E00- 00 00 00 00 00 00 00 00 
3E08- 80 80 33 AO 3C 93 IE 00 
3E1Q- SC 84 IC 92 32 99 Of 00 
3E18- 80 BO BC 86 83 83 IE 00 
3E20- CO EO 78 A6 26 93 IE 00 

3E28- 90 80 9C B2 3E 83 IE 00 
3E3Q- 33 CC OC 9F 06 83 03 00 
3E38~ 80 80 38 At 2b 9E 10 OE 

3E4Q- 8C 84 3C B2 32 99 19 00 

3E48- 98 80 18 BC OC 86 06 OQ 

3E50- EO 80 60 BO 30 90 19 OE 

3E58- BC 84 64 9A OE 8D 19 00 

3E60- 90 98 18 BC OC 86 06 00 

3E68- 80 80 3E AA 2A 95 15 00 

3K70- 80 80 3K B? 37 99 19 00 

3E78 80 80 IC 93 33 99 OE 00 

3E80- 80 80 3C B2 32 8F 03 01 

3E88- 80 80 3B A6 26 9E 18 B8 

3E90- 80 80 78 8E 06 83 03 00 

3-99- 80 80 9C A6 8C 99 BE 00 

3EA0- 80 8C 3E 86 06 93 OE 00 

3EA8- 60 80 «0* A6 2b 93 IE OU 

3EB0- 80 80 B2 9A BE 86 82 00 

3EB8- 80 80 54 AA 2A 95 IE 00 

3EC0- BO 80 22 9A OC 8B 11 00 

3EC8- BO BO 26 93 13 8F 08 07 

3ED0- 80 SO 3E 98 OC 83 IF 00 

3ED8- OC 02 IC 32 3E 03 IE 00 

3EE0- IB 20 SC 26 36 13 IE 00 

3EE8- 30 40 IC 32 3E 03 IE 00 

3EF0- 02 06 OE IE OE 06 02 00 

3EF8- 7F "7F 7F 7f ?F 7F 7f FF 



Table 

'FORMES4' 

6Q0Q- 08 DB 12 00 EO OQ AC 01 
6008- EE 01 Itj 02 5D 02 76 02 
6010- 80 02 49 49 2D 2D 2D 2D 

6018- 2D 6D 49 HI flR FB DB DB 
6020- DB 18 DF 53 49 09 4D 4 9 
6026- 49 49 69 49 VA IB DF DB 

6Q30- DB DB DB DF 53 49 4D 49 
6038- 2D 6D 49 69 89 DB DF IB 
6040- FF DB FF DB DF 4A 69 09 
£048- 4D 49 49 40 69 01 FB IB 



6050- DF DB DB IB DF FB 4A 40 
6058- 4D 49 49 49 £9 69 1A DF 
COCO- FB DB DB DB IB DF BB C9 
6068- 69 49 49 49 49 69 A9 Dt 
6070- FB DB DB DB DB FB IB OE 
6078- 4D 40 49 49 49 49 4D D5 
6080- DF FB DB DB DB IB DF BB 
6088- 09 4D 4D 49 49 49 69 69 
6090- DA DF FB DB DB DB DF FB 
6098- 4A 69 09 4D 49 49 4D 69 
60AQ- Dl IB DF IB FF DB FF DB 
60A8- DF 4A 09 4D 49 2D CD 49 
60B0- 69 89 OB FB DB DB DB DB 
60B8- FB 9B 49 09 4D 49 49 49 
60CO- 69 49 DA DB DF DB DB DB 

£nCB- FB Ofl 4 A 4 9 29 2D 2D 20 
SODQ- 2D 2D 4D 49 DA DB DD DD 
6QU8- UtS UB DB VB 02 OO OO 00 
6QE0- 49 49 2D 2D 2D 2D 2D 6D 
60E8- 49 Dl DB FB DB DB DB IB 
6QF0- DF 9B 49 09 AD 49 49 49 
60F8- 69 49 DA IB DF DB DB DB 
6100- DB DF 33 49 4D 49 49 49 
6108- 49 4D Dl IB DF DB DB DB 
6110- DB IB DF 4A 69 49 49 49 
6118- 49 49 4D DA DF DB DB DB 
612Q- DB DB FB 4A 40 49 49 49 
6128- 49 49 69 1A DF DB DB DB 
6130- DB DB DB 57 4D 49 49 49 
6138- 49 49 49 15 DF DB DB DB 
6140- DB DB DB IB OE 4D 49 49 
6148- 49 49 49 49 D5 DF DB DB 
6150- DB DB DB DB 57 69 49 49 
6158- 49 49 49 09 8D IB DF DB 
6160- DB DB DB DB FB 4 A 69 49 
6168- 49 49 49 49 40 DA FB DB 
6170- DB DB DB DB DF 4A 09 40 
6178- 49 49 49 49 4D Dl DB DF 
6180- DB DB DB DB DF 53 49 69 
6188- 49 49 49 09 4D 89 DB IB 
6190- DF DB DB DB FB DB 4A 49 
6198- 29 2D 2D 2D 20 2D 4D 49 
61A0- DA DB DB DB DB DB DB DB 
6 J AS- 02 00 00 00 24 2C 24 25 
61B0- 25 2D 2C 2D 2D 2D 35 2D 
61B8- 2E 2E 36 35 36 36 36 3E 
61C0- 36 37 37 3F 3E 3F 3F 3F 
61C8- 27 3F 3C 3C 24 27 24 2C 
61DO- 2D 2D 2D 25 24 24 05 08 
6lD3- 06 09 39 3A 3a 3a 3a 32 
61E0- 1A 32 36 Jb U9 2D 25 27 

6JES- 2B 21 IF 23 3B 00 2D 24 
61F0- 25 OE 36 35 2E 22 25 2C 
61F8- 24 25 OE 36 35 2E 22 25 
6200- 2C 24 25 OE 36 35 2E 22 

6208- 25 20 24 25 OE 36 35 2E 
6210- 22 25 2C 2D 00 2D 24 25 
£218- OE 36 35 2E 22 25 20 24 
6220- 25 OE 36 35 2B 36 OA 3E 
6228- 36 37 DD 09 3C 24 17 36 
6230- 36 2E 2D 2D 2D 2D 20 2D 
6238- 2D 25 24 24 24 74 24 OC 

6240- 09 3F 22 3C 36 23 34 3B 
6248- 37 3E 26 23 3C 24 27 IE 
6250- 36 37 3E 22 27 3C 24 27 
6258- IE 36 37 3E 00 2D 2E 25 

6260- 3C 37 08 28 2D 2D 24 24 
6268' 35 36 2E 2D 2D IE 12 36 
6270- 2D 24 37 09 2D 00 2D 2C 
6278- 35 3F. 9? 01 08 08 2D 2C 
6280- 25 2D 2C 35 11 12 36 2D 
6288- 24 37 09 2D 00 2D 12 12 
6290- 12 24 24 24 24 24 24 IF 
6298- 23 3C 2F 01 20 OE 2A OD 

62AO- 09 12 12 32 36 36 2E 24 
62A8- 24 24 05 08 08 30 36 36 
62B0- 36 36 12 22 24 OD 21 24 
62B8- 24 2C 36 36 36 16 OA 09 

62CO- 74 24 74 24 24 24 OD 11 
62C8- 12 36 36 36 25 24 24 2C 
62DO- 12 2A 05 OO EE 



J 
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Courrier automatise 



Veronique Schmitt 



Lorsque nous abordons 
W.P.L. et le courrier 
dit "automatise", nous 
ne trouvons que des 
"circulaires" a personnaliser et 
leur fichier d'adresses 
pre-enregistre. Or, si la circulaire 
repond bicn aux bcsoins 
professionnels, pour lesquels la 
creation d'un fichier est 
rentabilisee par des emplois 
successifs, elle parait inadaptee 
pour des besoins personnels car, 
dans ce cas, le fichier n'est cree 
que pour la circulaire en question 
et tout le travail de saisie, qui est 
si fastidieux, n'est guere 
fructueux. En effet, dans le cas 
d'un particulier, de quelles 
"lettres-type" s'agit-il le plus 
souvent ? 

• une lettre de demande de 
renseignernents auprfis d'agen- 
cesde voyage; 

• une demande de tarif k une 
compagnie d'assurance; 

• une invitation des amis aux dix 
ans de la petite... 

• etc. 

Dans chaque cas, la liste des 
destinataires est differente et la 
memoriser en Yue d'une 
utilisation ulterieure s'avfcre 
souvent inutile (si ce n'est dans le 
dernier cas : le fichier "Amis" 
peui eventuellement resservir. . .). 

Nous avons done mis au point un 
programme W.P.L. dc "courrier 
automatise" pour safisfaire les 
besoins des particuliers. 

Utilisation 
du programme 

Comme pour tout programme 
W.P.L.,. il est necessaire de 
charger prealablement Apple 
Writer He (en fran^ais). 
Pour appeler le programme, tapez 
<P> (CONTROLE P), puis apr£s 
apparition du message 



Fichier de Gfossaire 
'ENTETE' 



W&ronique SCHMTTT 
t&onoicvr 
CChci Mv/jaiesm 
v/eulllez agreer, 



Programme WPL 
'FORMAT 



PND 

PPR (id mettre CTRL L, entre deux CTRL Vbien stir) 

ppr 

*#* 
*#* 



PPR 
PPR 
PPR 
PPR 
PPR 
PPR 
PPR 
PPR 
PPR 
PPR 
PPR 

PIN NOM DU FORMAT D ' IMPRESSION A CHARGER: =-SA 

PCS/SA// 

PDO MENU 

QC3A 

PDO MENU 



CHOTX DU FORMA? D' IMPRESSION *** 



Avant de charger le format d'lmpresslon desire, 
Vous etes-vouff blen assur& de 1 'avoir sauvegardS 
sur la dlsquette W.P.L. 



Programme WPL 
'GLOSSAIRE' 



PND 

PPR 

PPR 
PPR 
PPR 

PPR 

PPR 
PPR 
PPH 
PPR 
PPR 
PPR 
PPR 
PPR 
PIN 



(id mettre CTRL L. entre deux CTRL Vbien sur) 



www 



CROIX DU GLOSSAIRE 



» m n 



Avant de charger le ?i=ss*xze deslr&, 
Vous etes-vcus bien ass~t± de I 'avoir sauvegarde 
sur la Oi*qeswZtm m.p.L. 



NOM DU GL0SSA:R£ A C£AJ*S£3: -SA 
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IMPRESSION/PROGRAMME : 
DO MENU. 

NDLR : Si, au lieu de baptiser le 
programme "MENU", nous 
I'appelons "STARTUP", Apple 
Writer le cfiargera automatique- 

ment, lors du Boot. 

Le programme se decompose en 
4 phases principales : 

• l&re phase : chargement du 
format d'impression; 

• 2eme phase : chargement du 
glossaire; 

• 36me phase : creation de la 
"lettre-type" selon un schema 
pr6d6termin6; 

• 4 erne phase : exploitation de la 
lettre creee (saisie des mentions 
variables ct edition). 

II suffit ensuite de suivre pas & 
pas les instructions figurant & 
I'ecran. 

Fonctionnement 
du programme 

Le menu 

C'est un programme W.P.L. ne 
presentant aucune particularite. 
Pour quitter, i] suffit de taper sur 
"RETURN". 

Chargement du format 
d'impression et 
du glossaire 

Ce sont deux programmes 
W.P.L. II suffit d'entrer le nom 
du fichier. En cas d'erreur, un 
xetour chariot permet de revenir 
au menu principal. II est rappele a 
l'utilisateur que les fichiers de 
format d'impression et les 
gloss aires do i vent etre 
prealablement enregistres sur la 
disquette. Les inities a 
AppleWriter connaissent bien 
celte procedure de sauvegarde. 

Creation de la lettre 

C'est un fichier texte. II a ete cree 
k partir d'AppleWriter He et se 
met done £ jour en utilisant les 
commandes AppleWriter. 

A ce stade, l'utilisateur complete 
la lettre avec les mentions 
constantes (Ref., objet, date, 



PCS/SA// 
PDO MENU 
QE SA 
PDO MENU 



Fichier Apple Writer 
'LETTRETYPE' 



Veronique SCHMITT 
niG des: Cerlsle^s 
97222 AILLEURS 



Kef. : 



(NOM) 

(ADRESSEJ 
(VILLE) 



Allleurs, 
le 



( APPELLATION) 

Veulllez aqxe\er, (APPELLATION) , nos salutations distinauees. 

V. Schmltt, 

lete Phase : CREATION DE LA LETTRE TYPE 

- Taper <b> pour avoir le debut de la lettre 

- Completer la lettre (Ref., Objet, Date, Corps) 

2cmc Phase : SAUVEGARDE DE LA LETTRE TYPE 

- MeLtre le curseur au debut de la lettre type 

- Charger la lettre type cotnplelee sous le nom XX 
• Taper <S> : XX/V. Schml tt,/ 

3cmc Phase : RETOUR AO MENU WPL POUR EXPLOITER LA LETTRE TYPE 
- Taper <P> DO MENU 



Programme WPL 
'MENU' 



PND 

PPR (id mettre CTRL L, entre deux CTRL Vbien sOr) 

ppp ********************************** ************** 

PPft *** .** 

PPR MJ* COURRIER AUTOMATISE (H.P.L.) *** 

PPR w ** *"" 

PPR ************************** ************ ********** 

PPR 

PPR MENU 

PPR 

PPR 

PPR1- CHOIX DU FORMAT D'IMPRESSION 
PPR 

PPR2- CHOIX DU GLOSSAIRE 
PPR 

PPR J- CREATION D'UNZ LETTRE TYPE 
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corps). Puis il la sauvegarde sous 
le now de son choix (ici XX). 
Afin de ne pas annexer % la lettre 
crdde les instructions qui figurent 
en-dessous, il ne faut 
sauvegarder le texte que de 
1'en-tete jusqu'au signatairc, d'oii 
la necessite de placer le curseur 
au debut de la lettre et de la 
sauvegarder sous le nom XX/V. 
Schmitt,/. 

Knfin, comme il s'agit d'un 
fichier texte, il est necessaire pour 
poursuivre de retaper <P> : DO 
MENU. 

Remarque : Ce schema de lettre 
concerne la correspondance de V. 
Schmitt. Le lecteur le 
personnalisera en tapant ses 
propres coordonnees ik la place 
des siennes et sauvera le texte 
sous lc nom "LETTRETYPE". 

Exploitation de la lettre 

C'est un programme W.P.L. qui 
se deroule en deux phases 
principales: 

• saisie du nom de la lettre a 
editcr; 

• saisie des mentions variables 
concemant lc ler destinataire, 
puis edition correspondante. 
Saisie des mentions variables 
concemant le destinataire 
suivant, puis edition, etc. 

Le retour au menu se fait par un 
retuur chariot lors de la saisie 
d'un nouveau nom de 
destinataire. 



PPR 

PPR4- EXPLOITATION D'UNE LETTRE TYPE 

PPR 

PFR 

CHUiX PIN 

PCS/SA/1/ 

PDC FORMAT 

PCS/Sa/2/ 

PDO GLOSS A IRE 

PUS/sa/3/ 

PGO IT 

PCS/Sa/4/ 

PDO SAISIE 
riN NO 

POT 
LT NO 

L LETTRETYPE 



VOTRE CHOIX: ~$A 



Programme WPL 
'SAISIE' 



PSD 

PPR (id mem CTRL L entre deux CTRL Vbien sur) 

PPR •»»!•#»#**»#*##» 

ppR **** 

PPR "* EXPLOITATION D'UNE LETTRE TYPE 

ppR *»• 

PPR *•»*••*•"**•***•******* **t* I********************,***;***** 

PPR 
PPR 

PIN NOM DE VOIRE: LETTRE TYPE ;-$C 
BOUCLE NO 

£ Sq 

ppp (ia'mttttm CTRL t. entre deux CTRL Vbien sur) 
B 

PIN NOM DU DESTINATAIRE ;-5A 

PCS/SA// 

PDO MENU 

F/ (NOM) /SA/a/ 

a 

PIN ADRESSE :=SA 
F/ (ADRESSE } /SA/a/ 
B 

PIN VILLE :=SA 
F/tVILLE) /SA/a/ 
3 

PIN A? FELLA Tl UN :~$A 
F/ (APPELLATION) /SA/a/ 
3 

. PNP 

PGO BOUCLE 



P 



Le Pacha li^ J" LL^ Apple ][+, lit, He 

Listez vos programmes Basic en avant et en arriere. 
Modifiez, inserez, effacez des caracteres en plein ecran sans relire les lignes. 
Rcchcrchez toute chainc dc caractferes. 
Choisissez vous-meme les codes de controle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 
150,00 F TTC franco (bon de commande page 74). 
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RWTS desassemblee 



Patrice Neveu 



Dans le numero 9 rle Pom's, 
Thierry Le Tallec desassemblait 
pour nous la ROM en $C600 : les 
meandres du Boot devenaient 
clairs... Aujourd'hui nous nous consacrons a 
Rwts. Beaucoup d'encre a coule k son sujet, 
citons particulierement celle de Call Apple 
dans All About Dos. 

Les fichiers de desassemblage qui suivent 
sont ecrits cn Big Mac : 

• Rwts 1 regroupe les sous -routines Prenibl 
Write Postnibl Read Rdadr Seekabs 
Wrtform. 

• Rwts 2 est a proprement parler Rwts. 

• Rwts 3 est le formatteur 16 secteurs du 
DOS 3.3. 

Ces fichiers devraient permettre au lecteur de 
modifier avec plus de facilite le DOS. lis 
devraient simplifier la mise au point de 
formattages fantaisistcs, de protection 
logicieUe... 



SBEAE 



SBC56 



Entries I Sorties 



Formaleur 
16 secteurs 



RWTS 



WRTFORM 



NIBBLE BUFFERS 



Tables diverses 



Ulilhaires de RWTS 
PRENIBL WRITE POS'TNIBL 
READ RDADR SEEKABS 



DOS 



N° de page 
CO 



- BF 



- BE 



BD 
BC 
BB 
BA 
B9 
B8 



Carte de RWTS en mimoire 



RWTS 1 

(Assembleur BigMac) 



i 

2 
j 

4 

5 

6 

7 

e 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

24 

25 



-*,*»,l»*..,t*..***l.*l»****»*»******#-* 
» 

* DISK 11 

' SOUS -ROUTINES UTILITAIHE5 DE 

* READ J WRITE TRACK 6 SECTOR 

* f$B800.BCDEf 



* <£> PAR APPLE COMPUTER. 

* nFSA^FMBt.F. PAR P- WPl/T// 
*i.*f.ii*itrf*»i**i.*-*-*.**rf*-* - ****** 



ORG SBSOO 
OBJ $8800 



LABELS 



36 








27 


B'JFPTR 


EQU 43E 


POINTS SUR LA PACE DE BUFFER DE 
TRAVAIL 


28 


VOL 


EQU $41 


NUMERO DE VOLUME 


29 


SECTNO 


EQV $3F 


NOSECT 


30 


TP/HND 


FQtJ $44 


no ptstf: 




7RKN 


EQU S2A 


PISTE DE DESTINATION 


32 


»ONTIM£ 


EQU 546 


COMPTEUR SERVANT AUX DELAIS DU 
HOTEUR 


33 


TEMP 


EQU $2C 




34 


121 


SOU S27 




35 


CCMP7EVR 


EQU $26 


COMPTEUR POUR LE BUFFER 
5EGQNDA SHE 


36 




E'JU $2B 


NUMERO DE SLOT 


37 


CURTRK 


EQU $0478 


IE NUMERO DE LA PISTE AQTVEllE 


38 


L067S 


EQU $0676 




19 


n*TAi 


fqu sham 


naM.RAPJJ : DFJ.ATS POOR T.RG 
MOUVEMENTE 


40 


DPt7A2 


EQU SBAlD 


DU BRAS. UTILISE LORS DES 
PHASES UN/Ut f 


41 


DA.? A3 


BOO SBA29 


TABLE DE CONVERSION AL 'ECRITURE 


42 


N1BL3UF 


EQU $BB00 


ADRESSE DE DEBUT DU BUFFER 

DO TMA TRP 


43 


NIBLBUFl 


EQU SBBFF 




44 


NIBLBUT2 


EQU S3C0 


ADMESSE DE DEBUT DU BUFFER 
SECONDAZRE 


45 


RDLTCR 


EQU $C08C 


SWITCH DE LECTURE DATA 


46 


WRLTCH 


EQU SC08D. 


SWITCH D' ECRITURE DATA 


47 


RDUDC£ 


EQU $C08£ 


SWITCH POUR NODE LECTURE 


46 


tffWODE 


EQU 5CQ8F 


ECRITURE 


49 


FHSC/FF 


EQU SCO 80 


ZONE ALLUMANT OU ETEIGNANT LES 
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no 

51 
52 

54 
55 
56 
57 
56 

59 
60 
61 
62 
63 
64 
65 
CO 
67 

63 
69 

70 
71 
72 
73 
74 
75 
76 

77 
78 



80 

81 
82 
83 
94 

85 
36 

37 
S3 
39 

90 
91 
92 

93 

94 

95 

36 
97 
98 
99 

100 

m 

102 
103 

104 
105 
106 
107 
108 
109 

no 
in 

113 
113 
114 

115 

116 

11/ 
118 
119 



4 PHASES 

f SCO80.CQ67) 



* PRENIBL - OR ITS - POSTNIBL 

* READ - RDADH - 3 EC K AD 5 



* PRENIBL -wrBRI.FJ.TXF. POUR 

* DNSU1TE. 



PRENIBL 
P PEN IB I 



LDX tSOO 
LDY »$02 

DEY 

IDA (BUFPTR/,Y 
LSR 

POL NIBLBUF2, X 
LSR 

ROL NIBLBUF2, X 
STA NIBLBUF , Y 
INX 

CPX I $56 
BCC PRENIBl 
LDX tSOO 
TIA 

BNE PREVIA 2 
LDX 4SS5 

IDA NIBLBUF2,X 

AND t$3F 

STA NTBLBUF2, X 
DEX 

BPL LBS IE 



CONVERT IT 256 OCTETS (8 BITS) 
EN 342 NIBBLES (6 BITS) 

ns la forme ooxxxxxx 

PAGE A CONVERT!* EST EN BUFPTP 
UETHODE DE CONVERSION 6*2 (DOS 
3.3) 

BUFFER SECOND A IRE 



BUFFER PR LHA IRE 



CODE *5 OCTETS. , . 



. .. J FOIS DE SUITE, POUR EN 
CODER 256 

EE Y A 86 WX88&BS nAWS l.F. 

BUFFER SEC. 

CHARGER LES NIBBLES UN PAR 

UN. . . 

LES NIBBLES SERONT DE LA FORME 
OOXXXXXX 

REMET-LE DANS SON BUFFER 

IL EN RESTS ? 

QUI, ALORS AU f KUCHA IN.. . 



'WRITE'LA VRAIE ROUTINE QUI ECRIT 
* LES NIBBLES DES DUFFERS 

' PR IMA IRE ET SECOND A IRE 



WRITE 



SEC 

STX L27 

STX L067B 
LDA WRLTCH, X 

IDA RDMQDE.X 
BNI LBSB4 
LDA N1BLBUF2 
STA COMPTEUR 
LDA f$FF 

STA WRMOnF.,X 
ORA RDLTCH, X 
PHA 

PLA 
NCP 

LDY i$04 

PHA 
PLA 

JSR WRTN1BL2 
DEY 

BNE LBS 4 A 

LDA 0SD3 

JSR WRTNIBLl 

LDA *SAA 

JSR WRTNIBLl 
LDA I SAD 

JSR WRTNIBLl 



DANS X IL Y A LE NUHERO DE SLOT 
• Ifi 

TESTE UNE PROTECTION A 
L 'ECRITURE 

SI LE BIT S tNt - 1, PROTEGE 

FIXE LE COMPTEUR DE NIBBLES 
CHARGE UN OCTET DE 
SELF'S YNCHRONISATION 
ECRIT LE SUR LE DISK 

PERT 5 DE TEMPS DE 3*4*2=9 
CYCLES 



MET 7 RE MAINTEWANT 4 SELF— SYNC . 
FAIT EN DELAl DE 3*1=7 CYCLES 

PUIS VA ECU IRE 

DBKMHQB A PASSER AO PROCHAIN 
S' IL Elf RESTE 

CHARGE LE DEBUT DU PROLOGUE 
DANS L'ACC. 

ET VA ENSUITE L 'ECRIRE SUR IE 
DISK 

SD5/SAA/ $AD> REPRESENTE LE 
PROLOGUE DU 
CHAMP DATA. 

L 'ECRITURE DU EST 
FINIE 



120 
121 
122 

123 
124 
125 
126 
127 

m 

129 

130 

131 
IV 
133 
134 
135 
136 

137 
138 
139 
140 
141 
142 



144 

145 
146 
147 
148 
149 
150 
151 
152 
153 

1S4 
155 
156 
157 
158 
159 
160 

161 
162 
163 
2M 

255 
1 66 
167 
168 

169 

170 
171 

172 
173 
174 
175 
176 
177 
17S 
17S 
180 
181 
182 
183 
184 
185 
186 

187 

188 
189 
190 
191 
192 



TYa 

LDY t$56 

BNE LB969 
LB866 LDA NIBLBUT2, Y 

LB869 EOR NIBLBUF 1,Y 

TAX 

IDA DATA3.X 

LDX 127 

STA WRLTCH, X 

LDA RDLTCH, X 

DEY 

BNE LBS 66 

LDA COMPTEUR 
NOP 

LB97E EOR NIBLBUF, Y 

TAX 

LDA DATA3, X 
LUX 1.0 to 76 
STA WRLTCH. X 
LDA RDLTCH, X 
LDA NIBLBUF, Y 



BNE LB8 7E 



TAX 

LDA DAT A3, X 

LUX L27 

JSR WRTHlBU 

IDA isrv. 

JSR WRTNIBLl 

LDA t$AA 

JSR WRTNIBLl 

LDA iSEB 

J5P WRTNTBU 

LDA /SFF 

JSR WRTNIBLl 

LDA RDKQDE.X 

■ LDA RDLTCH. X 

RTS 

WRTNIBLl CLC 

WRTSIBL2 PHA 
PLA 

HRTNI9L3 STA WRLTCH, X 

ORA RDLTCH, X 
RTS 



PREPARE A ECRIRE 86 NIBBLES DU 

RUF.SEC. 

TJS PR IS 



WRITE LOAD (WRMODE DOIT AVOIR 
ETE MI5 ) 

ECRIRE L 'OCTET (AVANT -> WRITE 
MODE) 

ON LES PREND DE HAUT EN BAS 
S'lL EN RESTE A ECRIRE. . . 



LE CQDAGE DBS NIBBLES A 

t. 'EOT ITURF. 



WRITE LOAD 
ECRIT L 'OCTET 

PREPARE A CODER LE PROCHAIN 
NIBBLE 

PREND DU BUFF. PR IMA IRE. DE BAS 
EH HAUT 

AU PROCHAIN DE CES 256 
NIBBLES . . . 

PREPARE LE CHE X SUM 



ET VA L'ECRIRE... 

CHARGE IE DEBUT DE L 'EPILOGUE 

ET VA L 'ECRIRE. . . 

3DE/$AA/SEB EST L 'EPILOGUE DU 

FINIR L 'ECRITURE DE L 'EPILOGUE 



PREPARE POUR DES ENTREES 
FAST L' INVERSE 



LE TEMPS £ST IMPORTANT: 32 
CYCLES 

PQUR I'ECRITURE D'UN OCTET. 

WRITE LOAD 
WPITC BYTE 



* POSTNIBL I 



DECrmF. 14? NTRBLES 
(6 BITS) OOXXXXXX EN 
256 OCTETS (6 BITS) 



POSTS IB L 
POSTS IB 1 
POSTNIB2 



LDY 9S0Q 
LDX i$56 
DEX 

BM1 POSTNIBI 
LDA NIBLBUF, Y 
LSR NIBLBUF2,X 

ROl. 

LSR NIBLBUF2.X 
ROL 

STA {BUFPTRJ , I 

art 

CFY COMPTEUR 
BNE PlXa'THlB2 
RTS 



FATTS-RN 85 D'UN COUP.. . 

ENCORE UNE FOIS S.V.P 

DECODE CEUX DU BUFFER PR1MA1RE 

ET CEUX DU SECONDA IRE 

SELON LA METHODE DU 6*2 



UUFP'IR DONNE L 'ADRESSE DE LA 
PAGE OU 

SONT RANGES LES OCTETS 
UTTl. TSAR J_ES 

FAIT 4 FOIS 86 NIBBLES 
OK ? 



22 



Pom's n° 21 



193 
194 
J 55 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 

206 

207 

208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
216 

219 

230 
221 



223 
224 
225 



227 
228 
229 

230 

231 
232 
233 
234 



236 
237 
238 
239 

240 
241 
242 
243 
244 

245 
246 

247 
248 
249 
25U 



HEAD . LIT UN SECTS UK DE DAT AS 
Lt DISK EX S'lOCKE 
DANS LES NIBBLE BUFFERS 
(LE 2ND D 'ABORD DE RAU7 EN BAS) 
tLE 1ER ENSUITE DE BAS EN HAI7T) 



READ 
miTDATA 



WA ITDATAl 



WAZ?1 



HAXT2 



DATABL2 



LB913 
LB915 



LB925 



LB92F 



251 RDERR 



252 
253 

2S4 
255 
256 
257 
256 
259 



LUX t$20 
DEY 

BEQ RDERR 
IDA RDLTCH, X 
BPL HA ITDATAl 
EOR t$D5 

BNE WAITDATA 

NOP 

LDA RDLTCH, X 
BP I HAXT2 
CMP tSAA 
BNE HAITI 
WY 4S56 
LDA RDLTCH, X 
BPL MAXT3 
CMP i$AD 
BNE HAITI 

LDA ISOO 



DATA3LOC DEY 



STY CWPTEUB 
LDY RDLTCH, X 

RPL DATABL2 

EOR SBAOO, Y 
LDY COMPTEUR 
STA NIBLBUF2, Y 

BNE DATADLOC 



STY CCMPTEUR 
LDY RDLTCH. X 

BPL L891S 

EOR SBAOO, Y 
LDY CCMPTEUR 
STA NIBLBUF, Y 
XNy 

BNE LB913 



LDY RDLTCH, X 
BPL LB 92 5 
CHE SBAOO, Y 

BNE RDERR 

LDA RDLTCH, X 
BP1 LB93F 
CMP ISDE 

BNE RDERR 
NCP 

LDA RDLTCH, X 
BPL LB939 
CKP I5AA 
BEQ OOODRD 

SEC 

R7S 



LIT ON DATA 

EN PAIT, ATTEND LE PROLOGUE 
D5/AA/AU 

CE ff'ETAIT PAS SOiV DEBUT, ALORS 
RE-LIT 

ON ATTEND LE 2EME HORCEAU 



IL EST FAUX ??? 

PREPARE LE COMPTEUR A 86 IS56) 
PUIS LA FIN DE CE PROLOGUE 



C'EST CA ? 

LE PR01OGUF. EST l.U r AUTfiUR OBS 
86 NIB. 

QUI SERONT MIS DANS LE BUFFER 
SECOND. 

ET RANGES DE HAVT EN BAS 
LECTURE D'UN DATA DEPUIS LE 
DTSK 

JUSQU'A CE QU'IL SOIT 
CONVENABLE 

OU LB RANGE-T-QN CE NIBBLE ? 
A CET ENDOIT DANS LE BUFFER 
SSCONDAIRE 

IL EN RESTS A LIRE, ALORS 
ALLONS-r 



DANS L'ATTENTE D'UN DATA 
CONVENABLE 

C'EST RATI:, XL LUX MANQUE UNE 
CASE (!) 

ON LE RANGERA OU CE NIBBLE ? 
ICI DANS LE BUFFER PRIMA IRE 
OU XLS SERONT STOCKES DE BAS EN 
JiAUT 

UN EN VbU'S 256, SOLI 342 AU 
TOTAL 

LECTURE D 'UN CHECKSUM 
CE BYTE EST TOO HCCHE ! 
COMPARE AVEC CELUI CALCULE EN 
CHARGEANT 

ERREUR, ILS SON? DTFFERENTS 

ON LIT UN DATA . - . 
BOUH QO 'It EST LAID > 

QUI DOIT ETRE LE DEBUT DE 

L 'EPILOGUE 

ENCORE UNE ERREUR POSSIBLE 
HEUREOSEMENT, CA SEM3LE EIRE 
BON. . . 

ICI, ON 3 'ATTEND A UN -SAA 

C'EN EST ON ? iO/N) 

LA LECTURE EST TOUT A FAIT 

CORRECTE H! 

NOW, A /.DBS ON LE SIGNALS, ET ON 
PART. . . 



» RDADR : LIT LE CHAMP ADRESSE 



LDI fSFC 
STY COMPTEUR 



HISE A JOUR DU COMPTEUR 



2C0 


LSS4B 


nn 






261 




BUL 


miTDAT 




262 




LNC 


COMPTEUR 




263 




BEQ RDERR 


IL y A EU TROP D' ERREUR XII 


764 










365 


MAITDAT 


LDA 


RDLTCH, X 


LECTURE D'UNE DONNEE DU DISK 


266 




apt 


HAITDAT 


SEULEMENT SI ELLE N'EST PAS 
CONVENABLE 


267 


taiTDi 


CMP 


t$D5 


CA DOIT ETRE SD5 POUR LE 
PROLOGUE 


768 




RNF 


T.R Q4R 


FRRErm, CW RB-ESSA YE 


269 




NCC 




C'EST DON, OK CONTINUE... 


270 


MAZTD2 


LDA 


RDLTCH, X 


LECTURE DU DEUXIEME OCTET D 'UN 
PROLOGUE 


271 




BPL 


HAITD2 


LE SEME BIT DOIT ETRE A 


272 




CMP 


4SAA 


LE PROLOGUE DO CHAMP ADRESSE: 
D5/AA/96 


273 




ONE 


WlITDl 


RE -ESS AYE, MAIS C'EST FAS 
ILLLMLTti ! 


274 




LDY t$G3 


C'EST POUR LA PROCHAINE ETAPE 


275 


MAITD3 


LDA 


RDLTCH, X 


CETTE LECTURE DOIT DONNER 596 
ET DONC 


2 76 




BPL 


WATTD3 




277 




OCT 


t$96 


MARQUER LA FIN DU PROLOGUE 


278 




BNE 


HAXTDl 


TOUT EST A REFAIRE . . . 


279 










280 




LDA i$00 




281 


AD RB LOCK 


STA 


L27 




282 


ADRBLOC2 


LDA 


RDLTCH, X 


LECTURE D'UN DATA 


283 




BPL 


ADPBLOC2 


S'lL N'EST PAS VALABLE 


284 




RLJL 




DEBITS DU CODAGE. . . 


285 




STA 


CCMPTEUR 




286 


ADRBL0C3 


LDA 


RDLTCH, X 


LE VOLUME, PISTE, SECTEUR, 
CHECKSUM SONT 


297 




BPL 


ADPJ3LOC-3 


CODES SUR DEUX OCTETS DANS LE 

cuAte 


288 




AND 


COMPTEUR 


ADRESSE. D'OU LES 2 LECTURES 


289 




STA 


T£MP,Y 


...SUITE DU COD AGE. . . 


290 




EOR 


L27 




791 




DRY 




TJ. Y AVATT S3 POUR LIRE LBS 4 
DONNEES 


292 




BPL 


ADRBLOCX 


SI Y=0 VA QUAND MEME LIRE, 
ARRETS A SFF 


293 




TAY 






294 




BNE 


RDERR 


SI LE DERNIER (CHECKSUM) <> 0, 
ERREUR! 


SOS 










296 


• ATTEND 


SDE SAA ,L 'EPILOGUE, SINON r C-J 


297 










298 


LB98B 


LDA 


RDLTCH, X 


MAINTENANT, ON LIT 
L 'EPILOGUE. . . 


299 




BPL 


LB08B 


CET OCTET N'EST PAS DIGESTS 
{QXXXXXXXI 


300 




cr*p 


t$UE 


S'LL L 'EST, CA UOl'I £XR£ SUt: 


JUL 




BNE 


RDERR 


SINON, IL Y A ERREUR 


302 




NOP 






303 


LB995 


LDA 


RDLTCH, X 


EN FAIT, ON NE VA LIRE OU'UN 
PART IE DE 


304 




BPL 


LB 9 95 


L 'EPILOGUE; $DE/3AA/ (SEB/ 


305 




CHF 


tSAA 




306 




BNE 


RDERR 


LE CHAMP ADRESSE N 'EST PAS BON 


307 


GOCCRD 


CLC 




BONNE LECTURE !, PAS D 'ERREUR 

toot 


JUS 




RTS 






309 
HO 
311 










* SEEKABS 


:P0SITI0NNE LA 


TETE DE 


SLt 


* 


LECTURE SUR LA 


PISTE 


313 




DESIRES 




314 


















315 










316 


SLEXABS 


STX 


SLQTNUM 


SAUVE LE NVMERQ DE SLOT 


317 




STA 


TRKN 


LA PISTE DE DESTINATION 


318 










719 




CMP 


CVRTRX 


ON Y EST DEJA ? 


320 




DEQ 


LB9FC 


QUI, ALORS C'EST FXNI . 


321 










322 




LDA 


iSOO 


ON MET A JOUR LE COMPTEUR 


323 




STA 


CCMPTEUR 




374 










335 


LB 9 AD 


LDA 


CORTRK 


OU OU EST 


326 




STA 


L27 




327 




SEC 




A 000 1 ON RETIRE. . . 


328 




SBC 


TRKN 


OU ON VA 
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329 
330 
331 
332 

333 
334 
335 
336 

337 
33S 
339 
340 
341 
342 

141 
344 
345 
346 
347 
348 

319 

350 
351 
ISP 
353 
351 
355 
356 
157 
358 
359 

360 
361 
367 
363 
364 
36b 
366 
367 
ififl 
369 
370 
3/1 
372 
373 
374 
375 
376 
377 
37 & 
379 
390 

381 

392 

383 
384 

385 
386 

307 
388 
389 
390 
107 
392 
393 
J94 
395 
396 

197 
39$ 
399 

400 
401 

402 



BCS LB SCO 
EOR t$FT 
INC CURTRK 



LB9C0 

LB9C5 

LB9CB 
LB9D0 



BCC 
ADC- 
DEC 
CMP 
roc 

LDA 
CMP 
BCS 
TAX 
SEC 
JSR 
LDA 
JSR 
LDA 
CLC 
JSR 



LB9C5 

#sre 

CUKTRK 
COHP7EUR 
JJi QCR 
CCNPTEim 
9SOC 

my do 



LB SEE 
DATAl, 1* 
3BA00 



IDENTIQUE, ALORS PHASE X OFF 
ON EST TROP LOIN ! 
ON N'EST PAS ASSEZ LOIN 
ALORS PASSE A LA PROCHAINE 

TJS PR IS 

PASSE A LA PRECEDENTS PISTE . . . 



LB9FI 



LDA OATA2, Y 

JSR WAITARMOV 
INC COMPTEUR 
BSE LB SAD 

' aouuL la ten ua lecture 



PHASE X ON, LE BRAS VA BOUGER 
VA LE FA1RE CHANGER DE PLACE. . 
CHARGE LE DELAI 
ET VA ATTENDRE . . . 

CO -> PHASE X OFF 

VA LA METTRE OFF CETTE PHASE 

X 

CHAHCE DM DELAI POUR LES 
MOUVEMENTS 

DU BRAS, ET EX£CUXL~Lt> . . . 
IL EN RESTE ? 

IL FAOT ENCORE VERIFIER ITJS 



LB9EA 



LB 9 EE 
LB9F1 



JSR NAITARMOV 

CLC 

LDA CUPTRK 
AND 9903 

ROL 

ORA SLOTNUH 
TAX 

LDA PHSOFT, X 
LDX SLOTNUM 
RTS 



ATTENTE. . . 

C-0 DONC PHASE OFF 

N' PISTE s 0OOQ0OXX -> NUMERO DE 
PHASE 

OOOOOXXC (C=0 :OFF , £>I .ON) 
AJOUTE LE NUMERO DU SLOT 

MET ON OV OFF LA PHASE REQUISE 
REP REND LE NUMERO DO SLOT 



* BOUCLE D' ATTENTE POOR LE 

' MOUVEKENT DU BRAS EN UNITES DE 

' £00 MICRO SECONDES 



ORG SbaGO 
ODJ S6A00 



NAITARMOV LDX 9$11 
NTRMV DEX 

BNE UTRHV 

INC MONTIME 

BNE WRMVl 

INC MONTIHE *1 
ffTRMVl SEC 

SBC 4 SOI 

BNE NAITARMOV 



2 CYCLES 

2 CYCLES 

3 CYCLES -> (2*3) *15*2*2=79 
CYCLES 

IL LXJ1T I AVOIR LE COMPTEUR DE 
TEMPS 

QOI SE TROVVE DANS L'ICB (6*3 = 

9 CYC.) 

2 CYCLES (92/ 

4 CYCLES (9b 1 

SOIT TOUJOURS A LA FIN ENVIRON 
100 USEC 



WRTFORM: F.CRTT LF. CHAMP ADRFSSF. 
PENDANT L' INITIALISATION. 



ORG SBC56 
OBJ S8C56 



SEC 

LDA NRLTCH, X 



lua tstr 



TESTE S'lL Y A PROTECTION A 
L 'ECRITVRE 
LDA RDMQQEtX 

IL Y EN A ONE, ALORS ARRETE 
L 'OPERATION 
DEBUT DE L'AUTO- 



404 
405 

tot 

407 
4 OB 
409 
410 
411 
412 
413 
414 
415 
4U 
417 
418 
419 
420 

431 
422 
423 
424 
425 

426 
427 

428 
429 
430 
431 
432 
433 
414 

136 

437 
438 

439 
440 
441 
442 

443 

414 

445 
446 

14? 
448 
449 

450 
451 
452 
453 
454 
455 
456 
457 

45fl 

459 

460 
461 
462 
463 
464 
465 
466 

467 
468 
469 

470 
471 
472 
473 



STA NRMODE,X 

CMP RDL TCH, X 
PHA 



SYNCHRONISATION. . . 
CELA PERMET D'ECRIRE 
L 'ACCUMULA TEUR 

L 'APPLE VA TROP VITE POUR LE 
DRIVE, IL 

Nfc t'AUT FAS L 'OUBLIER ! 



* ECRIT LE PROCHAIN NIBBLE D 'AUTO 

* SYNCHRONISATION. IL X EN A Y. . . 



HRIT3 



NRITl 



HNIBLA 
NNIBLB 



JSR NRITEND 

JSR NRITEND 

STA NRLTCH.X 

CMP RD1.TCH, X 
NCP 
DEY 

BNE NRIT3 

LDA iSDS 

JSR WIBLD 
LDA 4SAA 
JSR NNIBLB 
LDA i$96 
JSR WIBLB 
LDA VOL 

JSR NBYTE 

IDA TRXNO 
JSR MBYTE 
LDA SECTNO 
JSR MBYTE 

LDA VOL 
EOR TRKNO 
EOR SECTNO 
PHA 

LSR 

ORA BUFPTR 

STA ttRLTCH, X 
LDA RDL TCH, X 



ORA 4SAA 
JSR HNIBLA 



LDA 4SDE 

JSR MNZDLD 

LDA 44AA 

JSR NNIBLB 

LDA t$EB 

JSR HNTRIJi 
CLC 

LDA RDMODE, X 

LDA RDL TCH, X 
RTS 

PHA 

LSR 

ORA BUFPTR 

STA WRLTCH,X 

CMP RDLTCH, X 

PLA 

NCP 

NCP 

Net 

CRA iSAA 

NVP 

NCP 

PHA 
PLA 

STA NRLTCH, X 
CMP HDbTQLjJt 
RTS 



2'12 pS, D 'ATTENTE . ■ . 

WRITE LOAD 
UK ITT. BYTE 

AU PROCHAIN NTBBLE 
S'lL EN RESTE... 

ECRITVRE DU PROLOGUE DO CHAMP 
ADRESSE 

CONST ITUE DE SD£/$AA/396 



PUIS CCNME L' USAGE LE VEUT, IL 
FAlfl 

ECRIRE LE VOLUME, LA PISTE f LE 
SECTEUR 



OH FAIT LE CHECKSUM DU VOLUME, 

DO NUMERO DE PISTE 

DU NUMERO DE SECT 

ON LE 3AUVE POUR USAGE 

VLTLHLLVK 

PUIS ON CONTINUE LE CODACE 
CW A ALORS IS 1ER OCTET DU 
rUFCKHrjH 

QUE L 'ON EC&IT. . . 



RE PRENDRE LE PESULTAT 

PRECEDEMENT SAUVE 

pnm ORTF.NTR IF- 2EME OCTET DU 

CHECKSUM 

fTJS 2 OCTETS DANS LE CHAWP 
ADRESSE) 

PUIS OS FIN I ENFIN PAR 

i. 'f.p r rsyzriF. 

UN EPILOGUE, C 'EST SDE/SAA/SEB 



ON S'ABRETE D'ECRIRE 
ET ON RENTRE. . . 

rotjt twf oar fcrtt un octet en 

DOUBLE 

CODE LES INTO. ADR. EN BITS 
PAIRES ET 

IMPAIRES, ET LES ECRIT TOUT LES 

WRITE LOAD 
WRITE BYTE 

UN NOP PREND 2 CYCLES 
DONC ON ATTEND * CYC1J&. . - 

$AA - *10101010 



ECRIRE LE DEVXIEME OCTET 
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OFFRES SPECIALES BOUTIQUE IEF 
Pour les LECTEURS de POM'S 



EXTENSION MAC 

Extension 128 K a 512 K pour MAC 

Garantie 1 an I.E.F. 

Prix special lecteur POM'S 3 362 Frs H.T 

3 990 Frs T.T.C 

(Nous consulter pour extensions superieures) 



FLOPPY DISK chinon 



5" 7/4 compatible Apple lie et He 



• AH I.K.I 

■ 40 pistes 

• 143 Ko sous DOS 3.3 

• 160 Ko sous DOS special 

• ultra silencieux 

• detection de piste par photo deiecteur 
•-Vitesse ultra stable par moteur a entrainement direct 




DRIVE sen! 990 Frs H.T 

1 174 Frs T.T.C 

DRIVE + cable : 1 080 Frs H.T 

1 frs T.T.C 

DRIVE + cable + boTtier : 1 172 Frs H.T 

1 390 Frs T.T.C 

Iprix par quantite sur demanded 
1/2 hauteur • haute fiabilite • garantie 1 an 

Ce levltsui de disquette d ete homo/ague 
par ia FRAMIF, I'Aerospaiiale, le club Thomson, ere. 



PROMOS 



(Urgent quantite limitee) 



- Carte 80 coionnes etendue 990 Frs T.T.C 

- Disquettes 5"1/4 9,90 H.T par bofte de 10 (11,75 Frs T.T.C) 

- Moniteurs 12'* haute resolution vert 990 Frs T.T.C 

- Promo lie Noel : Apple lie + Moniteur + Souris + Logiciet :9 990 T.T.C 

- Promo MAC Noel ; MAC etendu a 512 K ; 19 990 Frs T.T.C 



BOUTIQUE I.E.F. : 403. rue de Vaugirard (porte de Versailles) 7501 5 PARIS Tel. : 48.28.06.01 



Nom: Prenom: Tel: 

Adresse: 

Societe: . . Profession: 



Je passe commande de : 

□ Extension MAC d 3 990 Frs T.T.C □ PROMO 

[~l Floppy AppJe modele 

Je joins un cheque d'acomptc de 20% soit : Frs pn 
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25 



RWTS2 

(Assembleur BigMac) 



i 

2 
3 
4 
5 



. . * It* ***** **l * r ....... r - 



DISK 11 
READ/NR1TE TRACKS ECTXXi 



6 




($BD00. BEAEI 




7 


t 




I 


8 


* C PAR APPLE COMPUTER * 


9 


* 




d 


10 


* DESASSENBLE PAR P. 


HE VEU • 


11 


t 




I 


12 








13 








14 








IS 








16 




ORG SDDOO 




17 




OBJ SOD00 




18 








19 














20 


* 






21 


* LABELS 






22 


* 






23 


-i ■ ■ ■ ■ 












24 








25 


MOTOROFF 


eqo $c088 


ETEIND LE MOTEUR 


26 


MOTORQN 


EQU SCO 8 9 


ALLUME LE MOTE UP 


27 


DRVOEN 


EQO SCOBA 


BRANCHE LE DRIVE 1 


28 


DRV1EN 


EQO SC08D 


DRIVE 2 


29 


RVLTVH 


EQU 5CQ8C 


SMTCH Ut LECTURE DA I A 


30 


MUTCH 


EQU SC08D 


SNITCH D 'ECRITURE DATA 


31 


RDHODE 


EQU SC08E 


SNITCH POUR NODE LECTURE 


32 


WRH 


EQU SC08F 


ECRITURE 


33 


PHSOFF 


EQO $C080 


ZOHE AUINWr OU ETEICNANT 



73 
74 
75 
76 
77 
18 
79 
SO 

01 
82 
83 
84 
85 

86 
87 
86 
89 

90 



LDY 4502 
STY SEEKCNT 
LDY 4 $04 
STY S04F3 
LDY 41 

LDA (IOBPL), Y 
TAX 

LDY 4S0P 

CUP I IOBPL), Y 
HtU SAHESLUT 



CHARGE LE NUHERO DE SLOT 



CHARGE LE NUMERO DU PRECEDENT 
SLOT, ccnpapj: 



G'SST L£ HEME, PAS' UE PROb 



' ON UTILISE UN NOUVEAU SLOT. 

* ATTENDRE L 'ARRET DU DRIVE. 

* POOR LE 5 AVOIR, ON LIT LES 

* DAT AS DU DISK. ILS DO I VEST ETRE 

* LES HEME PENDANT AU HOINS 9 

* MICROSECONDES 



91 




TXA 




SAUVE LE NOUVEAU NUMERO DE SLOT 


so 




PHA 






S3 




LDA 


(IOBPL) , t 


CMAROC LE 'V1EUX' 


94 




TAR 






95 




PLA 






96 




PHA 






97 




ST A 


(IOBPL), r 


SAUVE LE NOUVEAU 


98 




LDA 


RDMODE, X 


METS-TOI EM MODE DE LECTURE 


99 


STILLON 


LDY 


4508 


LES DATAS DOIVENT RESTER STABLES 


100 




LDA 


RDL TCHf X 


PENDANT 96 fiSCC 


101 


NOTSURE 


CMP 


RDLTCHf X 


LES DON N EES CHANGENT ? 


102 




BNE 


STILLON 


OOI... 


103 




DRY 






104 




9NE 


NOTSURE 


STABLE DEPUIS SUFFISAMENT DE 



4 

PHASES 



105 
106 
107 
108 



' LE PRECEDENT DRIVE EST ETEINT HAINTZNANT 



34 


* 






( SCV8U.C087 ) 


109 




TAX 


35 










110 






36 


PRENIBL 


EQU 


SB80Q 


NIBBLELIZE POUR ECRIRE APRES. 


111 


- ON TESTE 


SI 


r? 


MR TTF 


F.OU 


sna?A 


F.CRTT f.RS RUFFF.RS PRTHATRE * 


112 














SECOND A ZRE 


173 


sAMRSj/yr 


LDA 


38 


POSTNIBL 


EQU 


SB8C2 


DECODE 342 NIBBLES EN 256 OCTETS 


114 




LDA 


39 


READ 


EQU 


SB8DC 


LIRE UN SECTEUR DU DISK ->NIB3LE 


115 




LDY 










BUFFER 


116 


SSLOTl 


LDA 


40 


RDADR 


ECU 


SB944 


LIRE LE CHAMP ADRESSE 


117 




PHA 


41 


SEEXABS 


EQU 


5 99 AO 


TETE DE LECTURE SUR LA PISTE 
















DESIREE 


118 




PLA 


42 


HAITAHHUV 


EQU 


SUAQQ 


ATTEST E POUR MUUVEMENiS UU BHAi* 


119 




PHA 


43 


DSKTORM 


EQU 


$BEAF 


ROUTINE DE FORMAT AGE 


120 




PLA 


44 


DRVOTRK 


EQU 


$0478 


TOUT CELA SE TROVVE CACHE DANS L 


121 




STX 


45 


DRV1TRK 


EQU 


S04F8 


TROUS DE LA PAGE TEXT 








46 


SLOT 


EQU 


SOSFB 


LE NUMERO DE SLOT 


122 




CMP 


47 


CURTRK 


EQU 


$04 78 


LE NUMERO DE LE PISTE ACTUELLE 


123 




BNE 


48 


SEEKCNT 


LVU 


$06F8 




121 




DEY 


49 


RETRYCNT 


EQU 


$0578 


LE CCMPTEUR D'ESSAIS 


125 




BNE 


50 










126 


SSLOT2 


PHP 


51 


IOBPL 


F.Qtl 


SIR 


I'JUBtUB&iBB np r.A tarlf. TQM 


127 




LDA 


52 


MONTIME 


EQU 


$46 




128 




I.DY 


53 


iobph 


EQU 


IOBPL' I 




129 


PTRHOV 


LDA 


54 


PTRSDEST 


EQO 


S3C 




130 




STA 


55 


DEVCTBL 


EQU 


PTRSDEST 




131 




INT 


56 


CSW 


EQU 


52C 




132 




CPY 


57 


SECT 


EQU 


CSUM* 1 


LE NUMERO DE SECTEUR 


133 




BNE 


58 


TPKN 


CQU 


$2A 


PISTE DE DESTINATION 


134 




LDY 


59 


UKtVNU 


EQU 


$35 


Lt NUMERO UE DRIVE 


135 




LDA 


60 


TRACK 


EQV 


SECTtl 


LE NUMERO DE LA P ISTB 


136 




STA 


61 


VOLUME 


EQU 


TRACK* 1 


LE NUMERO DE VOLUME DU DISK 


137 




LDY 


62 


CmPTFlTR 


EQU 


S?6 


POUR IF. nOFFFJt SECOND A TRE 


138 




LDA 


63 


IBDERR 


EQU 


S40 


ERR I UNE CHOSE ANORMALE S 'EST 


139 




IJSY 










PRQOUITS 








64 


I8Vt*4E 


EQU 


$20 


ERR' LES VOLUMES LUS f VOULUS 


140 




CMP 










DIFFERENT 


141 




BEQ 


65 


IBNPER 


EQU 


$10 


ERR! DISK PROTEGE CONTRE L 'ECRITl 








66 










142 




STA 


67 










143 




PIP 


68 


• = = = = = = = 








144 




LDY 


69 










145 




PHP 


70 










146 


at 


POP 


71 




STY 


IOBPL 


AVAMT D'ENTRER, AtY POINTENT SUR 


147 




BCC 










L'lOB 


148 




LDA 


72 




STA 


IOBPH 




149 




PCS 



REPRENDRE LE NOUVEAU NUMERO DE 
DRIVE 



- ON TESTE SI LE MOTEUR EST ALLUME, SI NON, ON LE DEMARRE 



RDLTCII, X 
§508 

RDLTCHt X 



ON RF. MF.T F-N MOW. t.F.CTURF. 



ON ATTEND ENCORE UN PEU A VAN 7* DE 

RELIVE 



SLOT 

RDLTCHi X 
SSLOT2 

SSLOTl 

MOTORON, X 
46 

(IOBPL) , y 
PTRSDEST- 6, Y 

I50A 

PTRHOV 
4$03 

(PTRSDEST) , 

947 
42 

(IOBPL) ,Y 
4$10 

( IOBPL) , Y 
OK 

( IOBPL). Y 
4500 



DELAI, ET CA PEUT ETRE UTILE PLUS 
TARD 

VERIFIE SI CA HARCHE 
CA TOVRNE, LE? DATA? ON CHANGE! 
CONTINUE A ATTENDRE QUE CA CUANCZ 
SI CE N'EST PAS FINE 

SAUVE LE RESULT AT DU TEST 

ALLUME LE MOTEUR 

COP IE TOUS LES PO TNTEURS 



ILS SONT TOUS COPIES ? 



MAINTEWANT, AU TOUR DES PARAMETRES 
DRIVE 1 OU 2 ? 

n'FST UB MPMF* DRTVF QUE CFJ.UT 
UTILISE 
AUPARAVANT ? 

OUI, PAS LA PEINE D 'ATTENDRE LE 
MOTEUR 

MAINTENANT, ON UTILISE CE DRIVE 
SIGN ALE QU'lL ETAIT ETEINT (TEST) 



OKI C~0 ; DRIVE 1 UTILISE AVANT 

DRVOF.N, X ENGAGE LE DRIVE 1 

DRVSEL C-l ; DRIVE 2 UTILISE AVANT 



Pom's n° 21 



250 
151 

252 
153 
154 
155 
156 
257 
258 
159 
260 
261 
162 

163 
164 
165 

266 
167 
168 
169 
170 
171 
172 
173 
174 

175 
176 
177 
178 
179 
180 
191 

18? 
183 
284 
285 
186 
187 
188 

189 
190 

191 
192 
193 
194 
195 



DRVSEL 



211 
218 
219 
??0 
221 
222 
223 
224 
225 

226 
227 
228 



DRVSEL 1 



DRVSEL2 



LDA DRVlEN,X 
ROR DRIVNO 

PLP 
PHP 

BNE DRVS£L2 



LDY 97 

JSR NAITARMOV 
DEY 

BNE DRVSEL 1 

LDX S0SP3 

LDY 94 

LDA (IOBPL),r 

JSR MYSEEK 

PLP 

BIOS TRXTMK 

LDY $47 

BPL TRYTRK 



ENGAGE LE DRIVE 2 

SAUVE LE NUMERO DE DRIVE UTILISE 
DANS C 



BOUCLE D'ATTENTE 



CHARGE LA PISTE 
E7 VAS-Y 



LE MOTEUR ETAIT ALL HMD ? 
SI VU1, ME PAS ATTENDRE 



* LE MOTEUF ETA IT 'OFF', ATTFNT1R& QO' T1. PRFNNF. OF. LA VTTF.SSF 



MJTQF LDY t$12 

CONVRIT DEY 

BNE CONNAIT 
INC hONTINE 
BNE NOTOf 
INC tiUNTimtl 
BNE HOTOf 



* LE DISK EST A LA BONNE VITESSE r 

* ON PEUT LIRE. . . 

* SI CE N 'EST PAS LA COMMANDS DE 
' FORMAT AGE, LOCAL ISBR LE SBCTEUR 

* CORRECT POUR L 'OPERATION 



DELA1 DE IDO MICROSECONDB A CtiAQVE 
FOIS 



TRYTRK 



LDY iSOC 

LDA <IOBPL),Y 
BEQ UALUJUNE 
CMP 4$ 04 
BEQ FORMDSK 
RCR 
PHP 

sc5 rarrflftf 



196 




JSR 


PRENIBL 


197 


TRYTRK2 


LDY 


9S30 


198 




STY 


RFTRYCNT 


199 


TRY ADR 


LDX 


SLOT 


200 




JSR 


RDADR 


201 




sec 


RURlWr 


202 


TRYADR2 


DEC 


RETRYCNT 


203 




BPL 


TRYADR 


704 


TRY APR? 


r.na 


CJJRTRK 


SOS 




PHA 




206 




LDA 


tS 60 


207 




JSR 


SETTRK 


208 




DEC 


SEEKCNT 


209 




BEQ 


DRVEUR 


210 




T.DA 


** 


211 




STA 




212 




LDA 


t$00 


213 




JSR 


MYSEEK 


214 




PLA 




PI 5 


gocal 


JSR 


MYSFFX 


216 




JMF 


TRYTRK 2 



PRENDRE LE NUMERO DE CODE DE LA 
COHHANDE 

SI G'teSt tSSXAj V'BST TERMING 

FORMATE LE DISK ? 
EH OOI ! 

C=J POUR LIRE, C=0 POUR ECRIRE 
A SAUVER 

POUR L 'ECRITURE, IL FAUT DES 
NIBBLES. 

ON VA DONC EN FA IRE. . . 
SEULEMENT 48 ESSAIS 

MET LE NUMERO DE SLOT DANS X 

LIRE LE CHAMP ADRESSE 

i;A A MARCHEl ! 

ENCORE UNE ERREUR f 

HMH ! CA PASSE POUR CETTE FOIS.. 

sauve LA PXsTti GU'C-N VEUT 
ON RE-CALIBRE ENCORE .' 



VA 5UR LA PISTE 



FT CFTTF. FOTS-CT VA A LA PTSTF. 
CORRECT £ 



* LE CHAMP D 'ADRESSE EST BIEN LU 

* S 'ASSURER QUE C'EST LA PISTE, 

* SFCTFUR F.T I.F. VOT.UMF. VOOLO . 



RDR1GHT LDY TRACK 
CPY CURTPX 
BEQ RTTRK 



ON EST A LA BONNE PISTE ? 
SI QUI, C'EST BIEN 



LE DRIVE ETAIT SUR UNE PISTE 
DIFFERENTE. ESSAYS DE 
RECALIBRER A PART I R DE C ETT E 



229 
230 
231 
232 
233 
234 
235 
236 
237 
238 

239 
240 
741 
242 
243 
244 
245 
246 
247 
243 
249 
250 
251 
252 
253 

2S4 

255 

256 
257 
258 

259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
2/9 

280 
281 
282 
263 
28 A 

29S 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 

302 
303 
104 
305 
306 
307 
308 
309 
310 
311 



* PISTE. 



DRVERR 
.IMPTfll 



GALLDONE 
FORMDSK 



LDA CURTRK 
PHA 

m 

JSR SETTRK 
PLA 

DEC S01F8 
BNE GOCAL 
BEQ TRYADR3 
PLA 

LDA /ISO ERR 
PIP 

JMP HNDLERR 
BEQ ALLDONE 
JMP DSKFORM 



SAUVE LA PISTE DE DESTLXATZZ& 



ON VA REcALIBRER 
SINON, ON VA TOO JOURS ICI 
ON RETIRE LA PISTE ACTUELLE 
ERREUR ! 



* LE DRIVE EST SUR LA BONNE PISTE, VERIFIE LE VOLUME 



RTTRK 


LDY 


§3 


C'EST UN DISR ACCEPTABLE ? 




LDA 




CWARGE LE NUMERO DE VOLUME VOOLXf 




PHA 




SAUVE-LE 




LDA 


\/fi' (IMF 


CHARCZF LF VOLUMF ACTUFT 




LDY 


i$ 0e 


ET SAVVE LE 




STA 








PLA 




REPRENDRE LE VOLUME ATTENDU 




BEQ 


CORRECT VOL 


TOUS LES VOLUMES SONT ACCEPTES 




CHP 


i/nr nur 






BEQ 


rraa o PCTVOT 


CFTATT IF RON VOT.UMF 




LDA 


IIO IH) 


PHflRfiR LF. FODF. DF. fi'FRRFAIR 




BME 


~>f€Jr J '—'1 


7WI 7fYt DC DO rc 


CORRECTVOL LDY 


45 


VERIFIE 31 C 'EST LE DON SECTEUR 




LDA 








TAY 








LDA 


SBFB8, y 






CMP 


S2D 






BNE 


TR YADR2 


C 'EST PAS CA ! 


' CORRE-CTSECT: 








PLP 








BCC 


WRIT 


C-2 : LIFE, C-0 ECRIRE 




JSR 


READ 


ALORS VA DONC LIRE... 




PHP 




SADVE LE STATUS DE LA LECTURE 




BCS 


TRYADR2 


MAUVAISE LECTURE 




flf 








LDX 


90 


ON VA DECODER TOUS LES NIBBLE POUR 




STX 


CQXPTZ'JR 


AVOIR DE BEAUX OCTETS U7 1 LIS A3 LES 




JSR 


POSTNIBL 






LDX 


SLOT 


C'EST QUEL SLOT AO FAIT ? 


ALLDONE 


CLC 








HEX 


24 


AVEC LE PROCHAIN OCTET CA FAIT UN 








•BIT' 


HNDLERR 


SEC 




INDIQUE ONE ERREUR 




LDY 


isnn 


DONtJF. LOT IT. NtIMF.RO D'F.RRFUR 




STA 


trOBPL) t Y 






LDA 


MOTOR OfF, X 


ARRETS LE MDTEUR. . . 




RIS 






WRIT 


JSR 


WRITE 


VA ECRIRE LES NIBBLES HAINTENANT 




BCC 


ALLDONE 


PAS D 'ERREUR . 




WA 




PRBEtiB ! unppF.rm / 




BCS 


HNDLERR 





» C'EST LA ROUTINE QUI CHERCHE LA PISTE N DANS LE SLOT X/lb 

* IF DRIVHQ<0 THEN DRIVE 

* IF DRIVNOO THEN DRIVE I 



PtlA 








LDY 


t40L 


C 'EST UN DISK A 2 


PHASES f 


LDA 


(DEVCTBL) , Y 






RCR 




CARRY - NOMBRE DE 


PHASES 


P/Jl 








BCC 


SEEK 


1 PHASE PAR PISTE 


I 


ASL 








JSR 


S£EK 






Lsr 


CURTRK 






RTS 








STA 


TRXN 


ffAf/VP LA PTSTF. DP. 


REST TNAT WW 


JSR 


XTOY 


MET Y ~ NUMERO DE 


SLOT 


LDA 


DRVOTRK, r 






BIT 


DRIVNO 






S«I 


WASDO 


SI HOINS, DRIVE 1 




LDA 


DRV1TRX, Y 






STA 


CURTRK 


C'EST QU ON SE TROWE 


LDA 


TRXN 


ET CA, OO ON VA 





C2) 



J 



Pom's n° 21 



27 



117 




B IT 


DRIVNO 




326 


S£TTRK 


PHA 




313 




BMS 


, .i . . — 1 • _ 




377 




LDY 




91 A 

Jii 




STA 










LDA 


( IOBP LI f 1* 


315 




BPL 


OOlSB C8 


TOO JOURS PRIS 


j^? 




RCH 




316 


ISDRVO 


STA 


0HVG7RJT, J* 




330 




ROR 


DRIVNO 


317 


GQSEEK 


J MP 


SEEK ASS 


REMUES-TOI 


331 




JSR 


XTOY 


318 


XTOY 


TXA 




7RANSFERE X/16 DANS Y 


332 




pjji 




319 




f.CP 










ASL 




320 




LSR 










BIT 




731 




LSR 










OMi 




332 




LSR 






33fi 




STA 


DRV1TRX,Y 


323 




TAY 






357 




BPL 


SETRTS 


324 




RTS 






338 


QNDRVQ 


STA 


DRVOTRK, Y 


335 










339 


SET&TS 


P.TS 





CHARGE LB NUMCRO DE DRIVE 



MIS DANS CARRY 
DANS DRIVNO 



RWTS3 

(Assembleur BigMac) 



i 

2 
3 
* 

5 
6 

7 

a 

9 

10 

u 
u 

13 
14 
IS 
16 
17 
18 
19 
20 

71 
22 
23 
24 
25 
26 
27 



29 

30 
31 
32 

33 
34 

35 

36 
37 

30 
39 
40 
41 
42 
43 
44 



46 
47 
48 
49 

50 
51 
52 
53 
54 
55 
56 
57 



DISK II 
tUXMATEUR SEIZE SECTEURS 
($BEAF. BFA6) 



* PAR APPLE COMPUTER. . 

* • 

' DESASSEMBLE PAR P. NEVEU J 



OBJ $8000 



• _= = ===== 

L2D 


BOO 


$?n 


DUTPTR 


EQU 


S3B 


SECTNO 


EQU 


S3F 


VOL 


EQU 


$41 


TRKNO 


EQU 


$44 




FOB 


S45 


IOBPL 


ECU 


$48 



RETRYCNT 

MITE 

READ 



EQU $U5/tt 
EQV 9B82A 
EQU SB8DC 



RDADB CQ'J $DD41 

• UE NIBBLE BUFFER; $BBUU 

NIBLBUF EQU $BBO0 
N1BLBUFI EQU $BBFF 
NXOIJWF2 CQV $DC00 

UHTFOPM EQV SBC56 



MYSEEK 
SETTRK 



EQU SBESA 

EQU 



MOT CROFT" EQU SC08B 



POINTS SUR LA FACE VE BUFFER DF 
TRAVAIL 

NUMERO UE SECTKVM 
NUMERO DE VOLUME 
NUMERO DE PISTE 

AD P ESSE DE LA TABLE JOB 

CCWXfcUK U'ESHAIS 
ECRIRE LES NIBBLES DES BUFFERS 
LIRE UN SECTEUR ET STOCJfE LES 
W TART.ES 

LIT LE CHAMP ADRESSE 
BC55 

ADRESSE DE DEBUT DO BUFFER FRIM 

ADRESSE DE DEBUT DU BUPFEP. 
SECONDA IRS 

CHAMP ADRESSE PENDANT 
L 'INITIALISATION 
CHERCHE LA PISTE 



ETEINT LE MOTEUR 



5i 
59 
60 
61 



63 
64 
65 
66 
67 



DSKFORM LOT f$03 PHEHV LE VOLUME DESIRE 

LDA lIOBPl) ,Y 

sta vol stocke-le TCI 



79 
80 
81 

82 
03 
84 
85 

86 
87 
88 
89 
90 
91 

92 
93 
94 

95 
96 

97 
98 

99 
100 
101 

102 
103 

104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 

115 
116 



CLNIBLT 



CLMiaUFl 



LDA f$AA 
STA BUFPTR 

LDY #5.56 

LDA iS 00 

5TXA ItUWU 

STA NIBLBUF 1, Y 

DEY 

BNE CLNIBOF 
STA NIBLBUF, Y 



NETTOIE LE BUFFER SECONDAIRE 
D 1 ABO/0 

ON COMMENCERA PAR LA PISTE 

REMPL1R UE $00 

DE HAUT EN BAS POUR LE SECOND 
PASSE AU PROCHAIN. . . 
PUTS FAIT LE PRIMA IRE 



68 


DEY 




EGALEMENT. . . 


69 


BNE 


CLNIBUFl 


JUSQU'A CE QUE CA SOST TEKM1NE 


" 








71 


LDA 


4$ 50 


$50 = 80 


72 


JSR 


SETTRK 




n 


LDA 


i$2B 


$28 - 40, NCMBRE DE SYNC. BYTES 


74 


STA 


SYNCUUNt 




75 








76 


' VA CHERCHER 


LA PISTE 


DESIREE 


77 








78 


TRKFORM LDA 


TRKNO 


PRENDRE LE NUMERO DE LA PISTE 



LBEE5 



JSR MYSEEK 

JSR TPJWRT 

LDA 4$ 08 

BCS ERROR 

LDA $$30 

STA RETRYCNT 
SEC 



DEC 
BEQ 
JSR 
BCS 

LDA 
BNE 
JSR 
BCS 
INC 
LDA 
CMF 

nrr 

CLC 



RETRYCNT 

ERROR 

HVAVK 

LBEES 

L2D 

LBEES 

READ 

LBEE5 

TRKNO 

TRXNQ 

4S23 

TPxrnpM 



EP.ROR 



LBF15 
1RF17 



BCC DSKDONE 

LDY t$OD 

STA (lOBPU.Y 

SEC 

LUA MVSVROt f, X 
RTS 



LDA 4$ 00 
STA SECTNO 
LUI t$80 
BNE LBF17 
LDY SYNCOUNT 
JSR URTFORM 
BCS LRF87 
JSR WRITE 

BCS LBF87 
INC SECTNO 



DESIREE 

SE METTRE AU DESSUS 

VA FQRMATER LA PISTE EN QUESTION 

CHARGE UN CODE D'ERREUR AU CAS 

OU. . . 

O'ZL Y A EU ONE ERREUR (C^lf 

48 ESSAIS SCtMT VERMIS 

SE LE RAPPELER ! 

C=l AU CAS OU ON NE POURRAIT 

CONTTNUF.R 

TENTE DE RE-ESSAYEB 
MATS C'EN EST TROP 

SINON, LIT LE CRAMP D 'ADRESSE 
RE-ESSAYER SI C'EST RATE 

ERRBUR ?! 

PUIS LIT LE RESTE DES DATAS 
SI C 'EST HATE 

PASSE A LA PROCHAINE PISTE 

34 PISTES DEJA ? 
NON, ON CONTINUE 

SI, ALORS LC DISK EST riNI, SANS 

ERREUR 

TJS PRIS 

MET LE CODE D 'ERREUR 

DANS LA TABLE IOB POUR F.TUDF. 

ULTERIEURE 

ET SIGNALE LA EN METTAST C=I 

ETE1NT LE MOTEUR 

ET RETOURNER D'OU ON VIENT. . . 



COMMENCE AU ICR SECTEUR DC LA FISTS 

L 'ENREGISTRER 

128 SELF. SYNC A ECRIRE 

TJS PRIS 

VA ECRIRE LE CHAMP D 'ADRESSE 

ERREOR ! ! 

VA ECRIRE LE CONTENU DES BUFFERS A 
NIB. 

HORREUR !< 
PROCHAIN SECTEUR 



28 



Pom's n° 21 



117 
113 
119 

iau 

121 
122 
123 
124 
12S 
126 

127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 

138 
139 

140 
141 

142 
143 
144 
145 
146 
147 
147 
149 
ISO 
151 
152 
153 
154 
1SS 
156 

157 

157 
159 
IbU 
161 
162 



LBF32 



LBF3A 



VERIFY 



VSFERR 



L3F71 



LDA SECTNO 
CUT t$10 
BCC LBT15 

LDY 4$ OF 
STY SECTNO 
LDA i$ 30 
STA RETRYCNT 
STA CARTE, Y 
IXX 

BPL LBF32 

LDY SYNCOUNT 
JSR LBF37 

jsr tars 7 
jsr Lara/ 

PHA 
PLA 
MCP 
DEY 

BNE LBF3A 



JSR RDALR 

PCS t HP 71 

LDA L2D 

BEQ VERIFY 

LDA /S10 

CMP SYNCOUNT 

LDA SYNCOUNT 
SBC fSOl 

STA sincuunt 

CMP tS05 

BCS LBFll 

SEC 

RTS 



JSH 
BCS 
JSR 
BCC 
DEC 
DUB 
J5R 
BCS 

CMP 



KVAVK 

VRFERR 

READ 

SCTMAP 

RETRYCNT 

VRFYTHK 

RDADR 

VRFERR1 

L2D 

tSOF 



ON EH EST OU EXACTEMENT ? 
16 SECTEURS DE*JA ? 
PAS ENCORE, ON CONTINUE 

IL Y A 16 SECTEURS A MARQUER 

4H AT? MAXIMUM SON? AOTORISES 

STOCKE-LE POUR NE PAS L'OUBLIER 

Y MET7RE DES $30 Ausst. , . 

16 EH TOOT 

PAS UN DE HOINS I 

ATTWrWW SF.MN SYNCOriNT 

12 CYCLES 

+12 CYCLES 

+12 CYCLES 

* 3 CYCLES 

■* 4 CYCLES 

-* 2 CYCLES 
i 2 CYCLES 

+ * SI PHIS, SUIT 51 AU TVTAL PAR 
TOUR 

VA LIRE IE CHAMP ADRESSE 

ST Tt Y A ONE ERREUR 

LECTURE CORRECTE, ON EST AV 

SECTS UR ? 

QUI, ALORS VERIFIE 

NON. 



VERIFIE LE CHAMP ADRESSE 

XL Y A EV ONE ERREUR 

VERIFIE LE CHAMP DATA 

PAS D 'ERREUR, SAUTE PAR DRSSOS 

RE-ESSAYE DEPUIS LE DEBUT 

LIKE LE CHAMf ADKESSE 

ERREUR SUR LE CHAMP ADRESSE ■ 



163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
275 
17tf 
277 
278 
279 
180 
181 
182 
IflJ 
184 
IBS 
186 
187 
IBB 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
20 C 
207 
208 
209 
710 



VRFERRl 



lsfs y 



BNE VRFERRl 

JSIl READ 

BCC TRKHRT 

DEC RETRYCNT 

BME LBF71 
SEC 
RTS 



ET VA LIPS LE CHAMP DATA 

IL N'Y A PAS D 'ERREUR, SAUTE 

ON PEUT RE-ESSAYER 

PLUS D'ESSAI A FA IRE, C'EST RATE 
AT.ORS RP.NTRF A t.A MAISON 



* ROUTINE QUI MARQUE LA CARTE DES 

* SECTEURS INITIALISES LORSQU ' UN 

* SECTEVR EST VERIFIE 



SC7MA? 



LBFA6 



LDY 
LDA 
BMZ 
LDA 
STA 
DEC 
BPL 
LDA 
BME 
LDA 
CMP 
BCC 
DEC 
DEC 
CLC 
RTS 



i?n 

CARTE, y 

VRTERR 

0SFF 

CARTE, Y 

SECTNO 

VRFYTRK 

TRRNO 

LtUA6 

SYN COUNT 

t$10 

LBF87 

SYNCOUNT 

SYNCOUNT 



CHAP.CE POUR VOIR . . . 

IL Y A ERREUR, C'EST HE OA TIT 

C'EST BOM, UM VA X ME IT ME SEE 

VOILA, C'EST FAIT 

AU PROCHAIN SECTEUR 

ET VERIFIE LES TTIUS 

ON EN EST A QUELLE PISTE ? 

PAS A LA DERMIERE EN TOUT CAS 



ST «?y«r.roOTT > 16 

C'EST FXNI, ET SANS ERREUR 



* CETTE CARTE COtttENCE EM SBFA8 

* ET CONTIENT LES SECTEURS 
- INITIALISES. 

' S30 AVANT, SFF APRES. 

* ( SBFA8.BFB7 ) 



-/■J; IE 



EOU 



**************** ***************** 

* * 

* SOURCES: * 

* * 
' -BENEATH APPLE DOS * 

* -POM'S 9 * 

* -CALL APPLE : ALL ABOUT DOS * 

* * 
****************************** *** 



Vous avez un Apple lie avec Chat Mauve ou un lie ? 

Vous disposez de Pascal 1 2 ? 



Profitez de l'mterpreteur 




D s'agitd'un systeme graph ique double-haulc 
resolution 6crit en PascaL 
COGO vous permet de manipuler des graphiques 
grace a un langagc de description des objels 
- points, angles- et& I'emploi de fonctions primitives 
de manipulation tres puissantes : cercle, tangente, 
intersections, paralleles, etc. II est ainsi possible 
de tracer des grilles, des cercles, des segments de 
droite, des tangentes communes k deux cercles, de 
calculer des distances, des angles. . . 



. ■ 



Par Nicolas Montsarrat 



Ce programme, destine" &resoudre des problemes de 
gdometrie plane, compeffte des instructions de 

stockage sur fichier afin de pennettre la reprise | 
d un calcul. 

NB : Sur r Apple //c, raffichage se fait en simple 
haute resolution. 



L'e^di teur permet une saisie rapide du langage. 
Une instruction COGO pcut-etrc cxecutcc des 
la saisie pour faciliter la mise au point, ou 
au sein dun programme. 



150,00 F TTC, franco 
Bon de commande page 74 



■ 



Pom's n" 21 



29 



Ce programme vous permet de decrypter des secteurs codes. 
II contient differents algorithmes qui ont chacun pour 
fonction, d'une maniere differente, d'effectuer le d£codage 
d'informations cryptees. 11 vous offre ainsi la possibility de 
voir afficher en clair du texte code memorise a un 
emplacement donne. Ceci est particulierement utile, par 
exemple pour voir afficher les textes de nomhreux jeux 
d'aventure, dont les reponses sont la plupart du temps 
cryptees par les auteurs du logiciel. 




Paul Fransceschi 



Attention : cette fonction nc 
vous est procuree que pour vous 
permettre de profiter au maximum 
de vos logiciels d'aventure, en 
permettant d'aller plus avant grace 
& Taide fournie par le decodagc. 
Au lieu d'en rester aux trois 
premieres images du jeu, vous 
pouvez aller beaucoup plus loin et 
profiter bien plus pleinement de 
votrc logiciel d'aventure. En 
aucun cas cependant, vous ne 
pouvez utiliser cette capacite de 
decryptage en portant atteinte aux 
droits des auteurs du logiciel que 
vous etes parvenu a decrypter. 

11 cxiste bien entendu d'autres 
utilisations possibles de ce logiciel 
dont le mode precedent ne 
constitue qu'un exemple : il vous 
est ainsi loisible d'appliquer des 
techniques de decodage h n'im- 
porte quel texte, qu'il s'agisse de 



fichiers, de programmes, ou d'in- 
formations quelconques. Vous 
pouvez egalement vous livrer au 
plaisir du decodage, en tant 
qu'exercice intellectuel. 
D'autrc part, le programme vous 
permet egalement d'effectuer des 
verifications sur des informations 
que vous avez prealablernent 
codees, et de vous assurer que le 
cryptage est correct. 

Une fonction particuliere permet 
par ailleurs de voir afficher tres 
rapidement la totalite des carac- 
teres d'un secteur, sur l'ecran de 
l'Apple; il est ainsi possible d'ob- 
tenir une vue d'ensemble de ce 
qui se trouve sur la totalite de la 
disquette; ceci vous permet 
notamment de determiner £ quels 
emplacements se trouvent les 
informations cryptees et celles qui 
ne le sont pas. 



Au debut, vous choisissez une 
piste et un secteur a decrypter; 
lorsque cette selection est faite, 
vous entrez immediatement dans 
l'ecran de decryptage, qui offre 
une vision complete des 256 
caractcres presents dans lc secteur 
choisi. 

Note : si le code du caract&re est 
celui d'un caract&re de controle, 
un point est affiche a la place du 
caractcrc. 

A droite et en haut du texte 
apparait le ftltre, element fonda- 
mental du decryptage que vous 
allez ensuite appliquer au texte, et 
qui se compose de trois parties : 
octet 1, octet 2 et octet 3. 

En has et & droite se trouvent deux 
memoires, MEM1 et MEM2, qui 
seront ensuite utilisees par 
certains algorithmes. 

En bas et a gauche de l'ecran 
apparait la commande, en carac- 
teres inverses. Vous selectionnez 
les commandes & 1'aide des 
touches "flfcche a droite", "fldche 
a gauche", et "Return". 

Faites voire choix a I'aide des 
deux fleches, et validez la com- 
mande choisie avec un "Return". 



Programme 

DECR.SOURCE 

(Assembleur Lisa 2.5) 



NDLR: les numSros de llpne non 

aftectes correspondent a des llQnes 

vides ("44 ; par 
exemplei . 



WtJDLFT 
WNDWDTH 
WHO TOP 
WiDBTH 
CH 

cv 
k rxsw 

1(1 WlRYT 

11 KARH?T 

12 COLD ST 

13 1NTDOS 

14 SOFTEV 



NIS 

EPZ $20 
EPZ ttNDLFT+Sl 
EPZ WNDKDTHiSl 
EPZ miDTOP+Sl 
EPZ $24 
EPZ CH*$1 
FPZ $38 
F.P? SF1 

eof; swn 
equ $wi 

EQU $3EA 
EQU 5?F? 



15 1SQLOC 

16 KBD 

17 K6DSTRB 

18 SPXR 

19 TXTCLR 

20 TXTSET 

21 M1XCLR 

22 LCWSCP 

23 MTsr.o 

24 f^lOfiT 
M HIRES 
26 S TROUT 
37 RNn 

?H PRNTYX 
71 PRNTAX 
"1 PRBLK2 
31 BASCALC 
?? 05 

33 VS 

34 VTAS 

35 HOME 

36 LP 

37 PDKEY 
30 KEY IN 

39 PRBYTB 

40 COUT 



EQU $3FE 
EQU $C000 
EOU SCO 10 
EOU SCO 30 
EOU SCO 50 
EOU TXTCLR+Sl 
EOU TXTSET* S J 
EOU MJXCUltSl 
EQU lfWSCR*$l 
EQft MJSCP*?! 
EQ'J LORES +$1 
EQU SOR1A 
FO" SEFAE 
EQtl SF940 
EQU $F941 
EOU $F94A 
EQV SFBC1 
EQV &FC16 
EQV SEC A A 
EQU SFC22 
EQU SFCSa 
EQU SFC66 
EQV SFDOC 
EQU SFD2B 
EQU SFDDA 
EQU SFDED 



42 SET1NV 

42 SETNORM 

43 OUT PORT 
46 ; 

41 BELL 

48 LARPOH 

49 RETURN 
5C RARROU 

51 ESC 

52 CTRLZ 
55 : 

-?A 
5 7 EOR 

53 AND 

59 ASL 

60 LSR 
62 : 

64 INTP -O 

€S 

6* 

67 

64) 

SS 

70 

71 



EQU $FE80 
EQU SFEB4 
EQU SFE95 

EQU $87 
EQU $88 
EQU $80 
EQU $95 
EQU $9B 
EQU $9A 

EQU $09 
EQU $49 
EQU $29 
EQU $0A 
EQU S4E 

JSR IN1TVECT 

JSP ROME 

,7f(? PRINT 

REX 6DBDBD 

ASC "PROGRAMME DE OECRYPTAKF." 

HEX 9D 

ASC " " 

HEX 90 

ASC -DE SECTEURS CODES PAP " 
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Les differentes 
fonctions 

Pour decrypter, l'outil dont vous 
devrez user judicieusement est le 
"filtre". II faut specifier certaines 
valeurs dans les trois octets qui le 
composent; dans certains cas, ccci 
est cependant realise directement 
par lc programme; aucune con- 
naissance du langage machine 
n'est requise pour l'utilisation des 
fonctions principales. Certaines 
fonctions, lorsqu'elles sont selec- 
tionnees, agissent directement sur 
le filtre, et la modification effec- 
tuee sur ce dernier est affichde 
instantanement k l'ecran. 

Ainsi, le "ou logique", le "et 
logique" et le "ou exclusif ' , parmi 
les commandes, agissent direc- 
tement sur le filtre : le code 
operation en langage machine de 
1'operation choisie s'inscrit dans 
l'octet 1 du filtre. 

Pour agir directement sur le filtre, 
vous disposez de six fonctions 
accessibles par les commandes; en 
ggn&al, vous n'agirez directement 
que sur l'octet 2 du filtre; la 
modification des octets 1 et 3 du 
filtre est dangereuse et ne vous 
sera utile que si vous avez des 
connaissances suffisantes en lan- 
gage machine. 

Voici les six commandes qui 
agissent directement sur le filtre : 

• Incrementer octet 1 : ajoute 1 
en hexadecimal k l'octet 1 du 
filtre; 



• Ddcrdmenter octet 1 : enleve 1 
en hexadecimal k l'octet 1 du 
filtre; 

• Incrementer octet 2 : ajoute 1 h 
l'octet 2 du filtre; 

• Decrementer octet 2 : enlfcve 1 
k l'octet 2 du filtre; 

• Incrementer octet 3 : ajoute 1 k 
l'octet 3 du filtre; 

• Decrementer octet 3 : enleve 1 
a l'octet 3 du filtre. 

Dans tous ces cas, vous devez 
selectiormer la commande youIuc, 
puis la valider avec "Return". En 
maintenant constammenl la pres- 
sion sur la touche "Return", on 
obtient une incrementation ou 
decrementation tr&s rapide. 

OU logique 

Cet algorithrne realise un "ou 
logique" avec la valeur specifies 
dans l'octet 2 du filtre, pour 
chacun des 256 octets du secteur 
selectionne. La valeur 09, qui est 
le code-operation du "ORA" en 
langage-machine, est placee dans 
l'octet 1 du filtre. 

ET logique 

Ce deuxiirne algorithrne realise un 
"et" avec la valeur specifiee dans 
l'octet 2 du filtre. La valeur 29, 
code operation du "AND", se 
trouve dans l'octet 1 du filtre. 

OU exclusif 

Idem. Realise un "ou exclusif 
avec la valeur placee dans l'octet 2 
du filtre. Le code-operation du 



"EOR", 49, est place dans l'octet 
1 du filtre. 

Echange de bits 

Cet autre algorithrne effectue un 
echange entre deux bits donnes de 
chaque octet parmi les 256 du 
secteur choisi. On precise dans 
MEM1 et MEM2 une valeur entre 
et 7, qui est le rang des 2 bits 
dont on veut effectuer la permu- 
tation. Avanl d'utiliser cet algo- 
rithrne, vous devez done specifier 
deux valeurs differentes, compri- 
ses entre ct 7, pour les deux 
variables utilisees par 1'algo- 
rithme, MEM1 et MEM2. Pour 
modifier ces valeurs, utilisez les 
commandes suivantes : 

• Incrementer MEM1 : ajoute 1 
en hexadecimal k la valeur 
actuelledeMEMl. 

• Decrementer MEM1 : enlfcve 1 
kMEMl. 

• Incrementer MEM2 : ajoute 1 k 
MEM2. 

• Decrementer MEM2 : enlfeve 1 
kMEM2. 

Lire secteur 

Cette commande permet de lire et 
d'afficher le contenu d'un nou- 
veau secteur dont vous specifiez 
les coordonnees. Un filtre neutre 
(EA EA EA) est applique k ce 
secteur, qui apparait tel qu'il est 
memorise. 
Execution 

Cette commande realise Taffi- 
chagc des 256 caracteres du 
secteur choisi, en lui appliquant le 
filtre courant. 



?s 


HEX 8D 


97 


ASC 


"FILTRE, MATERIALISE 


118 


LUA t!14 


73 


ASC "UTILISATION D'UN PI LTItE" 






PAR TROIS OCTETS." 


119 


STA ffltSGtt 


74 


IICX 80 


M 


HEX 


BO 


izu 


LUA t!15 


75 


ASC 9 " 


99 


HEX 


8U 


i/i 


STA INP2CV 


7 


HEX 808D60 


100 


ASC 


"vuus euuvtz AXIBl 


122 


JSR ASCONV2 


77 


ASC - PAR PAUL FRA NCFSCH I " 






ViSUALlSEH UN SECT-" 


123 


LDA ASCV2RES 


78 


HEX 80 


iOi 


HEX 


BO 


124 


STA IBTPJf 


79 


ASC - COPYRIGHT 1985." 


102 


ASC 


"EUR AVEC UN FILTRE 


125 : 




80 


INV "VERSION 1.1" 






CUlR r FONCE, OPA-" 


126 


LDA H14 


61 


HEX 00 


103 


REX 


8D 


127 


STA 1NP2CH 


34 : 




104 


ASC 


"QUE OU ORANGE; VOIRE 


128 


INC INP2CV 


85 TESTO 


LOA KBO 






VISION PEUT EIRE" 


129 


INC INF2CV 


86 


BPL TESTO 


105 


HEX 


8D 


130 


JSR ASCONV2 


87 


BIT KBDSTRB 


106 


ASC 


"FLOUE, PRECISE, DE 


131 


LDA ASCV2RES 


88 I 








fiAUT. DE PPIS , DE " 


132 


STA IBSECT 


89 ECR2 


JSR Hunt 


107 


HEX 


80 


134 ; 




90 


JSH PHI NT 


109 


ASC 


"BIAIS, OU EXTPALVC1DE. . . ■ 


135 


LDA t'lQ 


91 


ASC "CE PROGRAMME VOUS 


109 


HEX 


8D8D8D 


136 


STA CH 


92 


PEPMET D'AFFICHEF LE" 


110 


ASC 


"ALORS r QUEL SECTEUR 


137 


LDA 4! 22 


HEX 8D 






DESIREZ-VOUS LIFE?" 


138 


STA CV 


93 


ASC "CONTENU D'UN SECTEUR 


111 


HEX 


8D8D8D 


139 


JSR VTAB 




DE MULTIPLES FA-" 


112 


INV 


" PISTE 


140 


JSR PRINT 


M 


HEX 80 


113 


HEX 


8D8D 


141 


BLM "ESPACE POUR 


95 


ASC "CONS, EH COHHUTANT A 


114 


INV 


■ SECTEUR - 


142 


HEX 00 




CHAQUE FOIS UN" 


115 


HEX 


00 


146 i 




36 


HEX 80 


117 : 






147 TEST 


LDA KBD 
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Piste suivante 

Cette option affiche les 256 
caracteres du secteur de la piste 
suivant la piste actuelle; lc numero 
actuel du secteur est conserve. Le 
filtre reste le mcme. Cette option 
permet d'aller tres rapidement de 
piste en piste, et de passer ainsi en 
revue toutc la disquette. En 
maintenant constamment le doigt 
sur la louche "Return", vous 
effectuez un parcours k grande vi- 
tesse de la totalite de la disquette. 

Secteur suivant 

Le secteur suivant est lu, en 
conservant le filtre conrant Ceci 
permet d'appliquer un meme filtre 
a une serie de secteurs, sans avoir 
de manipulation k effectuer. 

La demarche k suivre pour 
effectuer un decodage est gene- 
ralement la suivante : 

• on realise le decryptage d'un 
secteur precis a l'aide d'un 
fUtre donne; 

• lorsque ce filtre a fonctionne, 
on l'appliquc & lous les sec- 
teurs suivants. 

Ctrl-Z 

A tout moment, vous pouyez 
effectuer une copie sur im- 
primante des caracteres qui sont 
atfiches h l'ecran, avam ou 
surtout apr£s decodage. Corn- 
binee avec l'option "Secteur 
suivant", cette commande permet 
de realiser des listings de secteurs 
decodes, de fagon trfes rapide et 
commode. 



Espace 

En appuyant sur la barre d'espa- 
cement, une incrementation auto- 
matique dc 1'octct 2 du filtre est 
realisee, en meme temps que le 
filtre nouveau est applique aux 
256 octets du secteur choisi. Cette 
commande rend possible un test 
trSs rapide des differentes valeurs 
susceptibles d'etre utilisees par les 
algorithmes "ou exclusif, "et 
logique", "ou logique". Elle 
permet de tester les 256 valeurs 
(00 h FF) que peut prendre l'octet 
2 du filtre, de fagon trSs rapide et 
sans manipulation. 



Ctrl-Reset 

Ramene au debut du programme. 




Si vous utilisez pour la premiere 
fois ce programme, voici la 
maniere la plus simple de 
proceder. 

Selectionnez une piste et un 
secteur au hasard et realisez-en 
1 affichagc. 

A l'aide de la touche "fleche k 
droite", selectionnez l'option 
"Piste suivante", et validez-la avec 
"Return". 

Appuyez sans arret sur "Return" 
pour obtenir une vision rapide du 
contenu de la disquette. Votre but 



est de trouver les emplacements 
du texte code : vous les recon- 
naitrez en facilement, car le texte 
code ne presente en principe 
jamais plus de deux caracteres 
consecutifs identiques ! 
Lorsque vous avez trouve un 
secteur repondant & cette defi- 
nition, vous pouvez supposcr que 
vous etes en presence de texte 
crypt6. 

La demarche consiste alors a 
effectuer le decodage du secteur 
suppose cryptc. Vous allez utiliser 
h cet effet tous les algorithmes. 
Commencez par selectionner le 
"ou logique", a l'aide dc la touche 
fl&che & gauche, et validez avec 
"Return"; ensuite, il vous suffit 
d'appuyer sur la barre d'espa- 
cement pour obtenir un test du 
filtre avec la variable qu'il utilise, 
l'octet 2. Vous demarrez avec 
l'octet 2 k la valeur EA; faites le 
test pour les 256 valeurs possibles 
de l'octet 2. 

Si aucun texte n'est encore 
apparu, faites la meme operation 
avec le "et logique", puis le "ou 
exclusif. Si cela ne marche 
toujours pas, testez avec 
l'algorithme d'e change de bits, en 
utilisant toutes les valeurs 
possibles. 

Si vous parvenez & afficher un 
texte, e'est que Talgorithme a 
rcussi; dans ce cas, revenez h. la 
valeur precedente de l'octet 2 (car 
la bane d'espacement incrcmente 
systematiquement son contenu) £ 
l'aide de la commande "decrcmen- 
ter octet 2" ; placez vous ensuite 
sur l'option "secteur suivant" et 



148 
149 

150 : 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

}61 

162 

163 

164 ; 

165 AFFTRSC 
166 

16? 
16R 

10 

no 

171 
172 
173 



BPL TEST 


174 


JSH FRXn t. 


202 


STA Clt 


BIT KBQSTRB 


1 75 


jsr PKirn 


203 


LDA *3 




175 


ASC " SfcCTfcW* " 


204 


STA CV 


JSP HONE 


J77 


HEX 00 


205 


JSP VTAJ3 


JSP PPIfiT 


178 


IDA IBSECT 


206 


JSR PRINT 


ASC ■ " 


179 


JSP PRBYTE 


207 


ASC " " 




ISQ 


RTS 


208 


HEX 00 


HEX 3D 


182 : 




212 




ASC " 


183 AFFS 


IDA 80 


213 


INITIALISE LE FILTRE ET 


ASC *'" DECRTPTEUP 1.0 


184 


STA CC&4PT 


214 


LUA l>LA 


HEX 80 


185 


STA BUF 


215 


STA F1L1 


ASC " 


186 


IDA 8560 


216 


STA FJL2 




187 


STA BUF*SI 


21 J 


STA F1L3 


HEX 00 


188 .- 




218 


Jaft AF.FIL 


JSP AFFTPSC 


189 


JSP RUTS 


221 


LUA t!J3 


JHP AFFS 


190 


JSP ATF.256 


222 




192 ; 




223 


STA CH 


IDA 14 


193 


IDA il 33 


224 


LDA t!3U 


STA CV 


194 


STA CH 


225 


STA CV 


JSP VTAB 


195 


LDA 82 


226 


JSP VTAB 


riiA to 


196 


STA CV 


227 


JSP PRINT 


ffTJI CH 


197 


JSR VTAB 


228 


ASC "M.l H.2" 


KR POINT 


196 


JSR PRINT 


229 


HEX 00 




199 


ASC "FILTRE" 


230 




HEX 00 


200 


HEX CO 


231 


JSP AP. HEM 


IDA tara* 


201 


LDA 8! 33 


233 





32 
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vous pourrez visualiser les 
secteurs voisins avec ce filtre 
efficace. A chaque affichage, 
vous pouvez effectucr unc copie 
du texte decode avec "Ctrl-Z". 




La libcrtc de manipulation du filtre 
qui vous est laissee vous permet 
de specifier un "JSR" & un 
sous-programme de decryptage 
qui vous est propre, et tiendra lieu 
de filtre; placez pour ccla le 
code-operation du "JSR" dans 
l'octet 1 du filtre, et son adresse 
dans les octets 2 et 3, dans l'ordre 
partie basse-panie haute. 

Inserez votre routine personnelle 
de decodage & partir de l'adresse 
$2000, en veillant a restituer les 
registres en fin de sous- 
programme. 

A titre d'exemple, nous avons 
trouve les filtres permettant de lire 
les dictionnaires de Paranoia k, 
Incredible Hulk, Critical 
Mass. Vous comprendrez qu'il 
est difficile dans donner la liste 
dans ces colonnes. 

NB : Dans tous les cas, vous 
avez acces au vocabulaire du jeu 
qui n'est generalement pas code, 
grSce k l'editeur de secteur, et il 
est tres simple d'en obtenir une 
impression avec Ctrl-Z. 



234 
235 
236 
237 
23S 
239 
24V 
241 
242 
247 ; 

24 B AFF.256 
249 

250 
251 
252 
253 
254 

255 AFSUIV 
256 

25? tlil 
25S FIL2 
259 FIL3 
260 
261 



LDA 00 

STA OP I NO 

STA QPCH 

LDA $120 

STA oecv 
LUA tua 

STA UPltiUHAX 

jsp opaff 
jmp optest 

IDA to 

STA CH 

STA COMPT 

LDA IB 

STA CV 

JSP VTAB 

LOX 10 

LDA (BVF),Y 

NOP 

SOP 

HOP 

NOP 

CMP 0580 
BLT >2 



Une nouvelle disquette Pom's : 

Sur Apple ][+ 48 Ko ou //e 
avec ImageWriter 



a 

Par J. Gouzy 



Ce programme s'utilise en complement d'un Sditeur de texte, 
Apple Writer par exemple. Les textes a irnprimer sont enrichis de 
codes de contrdle destinds A P Format ][, puis sauvegard6s 
sur disquette en format texte. P-Format lit ce fichier et pilote 
J'imprimante. De nouvelles possibilites sont aiors disponibles : 

Justification : 

Droite, Gauche, Totals, Centre's, Page pake a droite et impairs 
a gauche de fagon automatique. La justification n'est 
pas perturbee par les caracteres du type eoud. 

Polices de caracteres : 

Changement simplify pour passer du § frangals au { ame'ricain 
ou 8 afJemand par exemple. 

Style d'impression : 

Simplo ou doubJe largeur, Gras ou non, Souligns' ou non, 
en mode proportionnel. au sein d'une meme ligne sans psrte 
de la justification. 

On peut obtenir en justif ication totale , 
des caracteres la-nges» des 
caracteres gras, ainsi que des caracteres 
SQUlign6s , 
Mode Mathematique : 

I (x*F. (x,y) = Scoi(3.x + y) = ^ & 

isi 1 Lim L( x+£,a-£) 

£-»3 



Mode graphique: 



Presentation d y une boucle d'as 



Cons i one 



Corr ec teur 



3 Ampl i 



-BoucU de retour- 



... tabulation, entete. numerotation des pages... 



P-Polkx 



Sur Apple //4 128 Ko 



Sur la meme disquette, ce programme vous permet d'&diter en 
double haute resolution les polices de caracteres personnalisees 
de I'l mage Writer. 



P-Format ][ et P-Police ][ : 200 f 00F avec documentation 
Bon de commands' page 74 



Suite du source page 34 
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V 



2 62 


CHP 9SA0 




Mi 


BNE 


263 


BGE >2 




182 • 




264 ;AFFICHE 


UN POINT 




383 PRNTDONE 


TNC 


2 65 :SI CARACT DE CONTROLE 




1R* 


RNK 


266 ; 






385 


INC 


267 


/-OA 4SA£ 




186 ■ 




26S : 






107 ppw/iwn 


1J}A 


>69 *> 


JSR COOT 




364 


STA 


2 70 


I NY 




389 


1HA 


271 


INC COMPT 




1M 


STA 


27* 


7-OA COMPT 




191 t 




27.1 


CMP §J37 




ins 


PfJ» 


274 


RNF AFSIJTV 




791 


TlX 


275 


in A to 




394 


PLA 


27f> 


ST A COMPT 




395 


TAY 


277 


LP A /O 




396 


PLA 


27/1 


STA CH 




39T 


PLF 


279 


INC CV 




398 


RTS 


290 


jcjf VTAB 




404 




281 


CPY tO 




4 OS ASCONV 


PHA 


203 


BNE AFSU1V 




40C 


ASL 


2B3 


JSR SOUND 1 




407 


ASL 


284 


IDA F1LI 




408 


BCC 


285 


STA PFIL1 




409 


PLA 


286 


IDA FIL3 




410 


AND 


287 


STA PF1L2 




411 


CLC 


286 


LDA F1L3 




412 


ADC 


289 


STA PF1L3 




413 


JMP 


290 


RTS 




414 A J 


PLA 


293 .- 






41 S 


AND 


294 CUT 


EPS S6 




416 '2 


STA 


295 COMFT 


BYT 




417 


RTS 


296 NUHERO 


BYT 




419 . 




297 : 






420 ASCVRES 


BYT 


298 SAVA 


BYT 




42S . 




299 SAVX 


BYT 




427 ASCONV2 


LDA 


300 SAVY 


BYT 




4tt 


STA 


313 ; 






429 


LDA 


316 Rtrrs 


LDA f DEVTPC 




430 


STA 


Sll 


STA IBDCTP 




431 


JSR 


JIB 


LDA /DEVTPC 




432 


JSR 


J 13 


STA 1BDGTP15Z 




433 


JSR 


320 


LUA /IOB 




434 


JSR 


321 


LUY 11 OH 




435 


LDA 


322 


JSR 931)9 




43e 


ASL 


323 


RTS 




437 


ASL 


324 : 






438 


ASL 


32b IOB 


BtT i,itiO 




439' 


ASL 


326 1BRVN 


BIT 1,0 




440 


STA 


321 IBTRK 


BYT 




441 


JSR 


328 1BSECT 


BYT 




442 


JSR 


329 IBDCTP 


BYT 0,0 




443 


JSR 


330 IBUFFP 


BYT U,SbO,0,0 




444 


CLC 


331 IBCHD 


BYT 1 




445 


LDA 


332 1BSTATT 


BYT 0,0 r 560, 1 




446 


ADC 


333 DEVTPC 


BYT 0, l r $£F,SD8 




44/ 


STA 


335 i 






44 * 


HTS 


336 AF.FIL 


LDA 85 




450 ; 




337 


STA CV 




451 AS CV 2 PES 


BYT 


338 


JSR VTAB 




452 INP2CH 


BYT 


339 


IDA l!32 




453 INP2CV 


BYT 


340 


STA CH 




461 t 




341 


LDA Fill 




462 OPAFF 


LDA 


342 


JSR PRBTTE 




463 


STA 


343 


LDA 0SAC 




464 


LUA 


344 


JSR coin 




465 


STA 


345 


IDA FTL2 




466 


JSR 


346 


JSR PRBYTE 




467 


JSP 


347 


IDA 9 SAC 




468 


LDX 


348 


JSR C0V7 




469 


LDA 


349 


LDA FIL3 




470 


LOY 


350 


JSR PRBYTE 




471 


JSR 


351 


RTS 




4 72 


JSR 


353 : 






473 


RTS 


354 ADM 


EPZ $8 




475 : 




355 ADRH 


EPZ ADPL+1 




476 OPEFF 


LDA 


360 ; 






477 


STA 


361 PRIST 


PHP 




47 B 


LDA 


362 


PHA 




479 


STA 


363 


TYA 




480 


JSR 


164 


PHA 




481 


LDX 


165 


TXA 




48? 


JSR 


366 


PHA 




483 


RTS 


367 : 






485 : 




368 


TSX 




486 OPTEST 


LDA 


369 


LDA SI 05.X 




487 


BPL 


370 


STA ADRL 




488 


BIT 


371 


LDA SI 6.X 




489 


CHP 


179 


STA ADRH 




490 


BNE 


171 


I.OY il 




491 


JSR 


374 .- 






492 


DEC 


J75 PRNTLOOP LDA lAHRtJ.Y 




493 


LDA 


276 


BSC PRNTDONE 




494 


CMP 


377 


JSR SFDED 




495 


RNF. 


378 


INC ADRL 




*M 


LDA 


379 


BNE PRNTLOOP 




497 


STA 


380 


INC ADRH 




49R 


nF.r 



34 



PRNTLOOP 


499 


"2 


JSR OPAFF 




500 




JMP OPTEST 


ADRL 


SOI 


*i 


CMP 9RA8R0N 


PRNDNG 


502 




BNE >3 


ADRH 


503 




JSR OPEFF 




504 




INC OPIND 


ADRL 


505 




LDA OPIND 


SI 05, X 


506 




CHP DPINDHAX 


ADRH 


507 




BNE >4 


S1G6.X 


508 




LDA tQ 




509 




STA OPIND 




510 


"4 


JSR OPASF 




Sll 




JMP OPTEST 




512 


"3 


CMP 9 RE TURN 




513 




BNE >5 




514 




LDA OPIND 




515 




CMP 90 




516 




BNE >1 




517 




INC FIL1 




578 




JSR AF.F1L 




539 




JMP OPTEST 




520 


*5 


CMP JSAO 


>1 


521 




RNF >6 




522 




JSR AFP 2*6 


FSOF 


523 




INC FIL2 




524 




JSR AF. FTL 


fS9 


525 




JMP OPTBST 


>2 


526 


"6 


CMP ICTRI.7. 




527 




RtfH OPTEST 


8 SOP 


528 




JSR PRTNT75S 


ASCVRES 


529 




.TMP nPTFST 




530 


*i 


CMP tl 




531 




BNE >2 





532 




DEC F1L1 




533 




JSR AF. FIL 


1NF2CH 


534 




JMP OPTEST 


CH 


535 


*3 


CMP t2 


TNP2CV 


536 




BNE >3 


CV 


537 




INC FIL2 


VTAB 


S3B 




JSR AP. F1L 


tUHOSt 


539 




JHP OPTEST 


COOT 


540 


*3 


CMP f3 


ASCONV 


541 




BNE >4 


ASCVRES 


542 




DEC FIU2 




543 




JSR AF.FIL 




544 




JMP OPTEST 




545 


-4 


CMP 14 




346 




BNE >5 


AS CV 2 PES 


547 




INC FIL3 


RDKEY 


348 




JSR AF.FIL 


COOT 


349 




JMP OPTEST 


ASCONV 


550 


*J 


CMP 45 




331 




BNE >6 


ASCVRES 


3S2 




DEC FIL3 


ASCV2RES 


553 




JSR AF.FIL 


ASCV2RBS 


554 




JMP OPTEST 




555 


"6 


Crtf 96 




356 




BNt. >7 


u 


55/ 




LDA IAND 





533 




STA FILl 


(1 


MS 




LUA t>EA 




560 




STA FiLJ 


OPCH 


dfij 




JSH At', bit. 


CH 


562 




JMP OPTEST 


UfCV 


56 3 


"7 


CHP n 


CV 


364 




BNE >8 


VTAB 


565 




LDA tVKA 


SETINV 


566 




STA FIL1 


OP1ND 


567 




LDA 9 SEA 


TABLES, X 


568 




STA FIL3 


TA3LEH, X 


569 




JSR AF.FIL 


ST ROUT 


570 




JHP OPTEST 


SET NORM 


57 1 


~8 


CMP 48 




572 




BNE >9 




573 




LDA 8EOR 


OPCH 


574 




STA F1L1 


CH 


575 




LDA 9 SB A 


OPCV 


576 




STA F1L3 


cv 


577 




JSR AF.FIL 


VTAB 


578 




JMP OPTEST 


§120 


579 


"9 


CMP 99 


PRBLK2 


580 




BNE >1 




581 




LDA 4 520 




582 




STA FIL1 


KBD 


583 




LDA 4ECH2BITS 


OPTEST 


584 




STA FIL2 


RBDSTRB 


585 




LDA /ECH2BITS 


HARROW 


586 




STA FIL3 


>1 


587 




JSR AF.FIL 


OPEFF 


588 




LDA MEM1 


OPIND 


589 




STA ECHE1 


OPIND 


590 




LDA MEM2 


tSFF 


591 




STA ECHE2 


>P 


592 




JSR AFF.2S6 


OPT NOMA X 


593 




JMP OPTEST 


OPIND 


595 






OP INI) 


596 


"1 


CMP 8 '10 



Pom's n" 21 



597 




BfJ£ >2 


703 HEX 00 


598 




NOP 


707 . 




600 






7 flQ I"AH ' PI 


BYT CI 


60J 




JHP ECR2 


709 


B VT C2 


603 


i 




710 


BVT C3 


6Q3 


"2 


CHP till 


711 


BYT C4 


604 




BNE >3 


712 


BYT C5 


605 




JSP AFF.256 


713 


BYT C6 


606 




JHP OPTEST 


714 


BYT C7 


607 


n 3 


CHP 4! 12 


71S 


OCT IrB 


60S 




atjs > { 


716 


BYT C9 


609 




INC HE Hi 


72 7 


BYT CI 


610 




JSP AF. HEM 


710 


BYT CI I 


621 




JHP OPTEST 


729 


BYT C12 


613 


n 4 


CHP t!13 


720 


BYT CI 3 


613 




BNE >5 


722 


BYT CI 4 


614 




DEC HE Ml 


722 


BYT CI 5 


CIS 




JSP. AF. HEM 


723 


BYT CI 6 


C1C 




JHP OPTEST 


724 


BYT CI 7 


617 


"5 


CHP l'14 


725 


BYT C19 


618 




BNE >6 


726 i 




619 




INC MEM? 


727 TABLEti 


HBY CI 


620 




JSP AF. MEM 


726 


HBY C2 


631 




JHP OPTEST 


729 


HOI C3 


623 


•a 


CHP HI 5 


730 


Htt-I C4 


623 




BNE- >7 


731 


HUT CJ 


62 < 




DEC MEH2 


732 


titfl 0'6 


625 




JSP AF. MEM 


733 


HBX C'7 


626 




JHP OPTEST 


734 


HB T C8 


62 7 


*? 


CHP t!l6 


735 


HB T (J 9 


628 




BNE >8 


736 


HBT CIO 


629 




INC IBTRJK 


737 


HM Y CI J 
no I _ . . 


630 




LDA IBTP-K 


738 


HBT CI 2 


631 




CHP t$23 


139 


HBY CI 3 


632 




3NE OPS 0TV1 


140 


HB Y CI 4 


633 




LDA tO 


141 


HBY CI 5 


634 




STA IBTRR 


147 


up y rif 
no I L J 


6 J5 




.IKU Ayh'TWit' 


743 


HB Y CI 7 


636 




JSH HUTS 


744 


HBY CIS 


63/ 




JSH At t'. 2 56 


752 ; 




638 




JHP Of TEST 


753 MEM1 


BYT 1 


6jy 


"fl 


CtiF 911 f 


754 MEM2 


BYT 


640 




BNE UPTXIT 


756 ; 




641 




INC IBSECT 


757 AF MEM 


LDA 4 '34 


643 




LDA IBSECT 


75B 


STA CH 


643 




CHP 4$1 


759 


LDA 4122 


644 




BNE 0PSUIV2 


760 


STA CV 


€45 




IDA 40 


761 


JSP VTAJ3 


646 




STA IBSECT 


762 


LDA MEM1 


647 


0PSU1V2 


JSR AFFTRSC 


763 


JSP PRBYTE 


648 




JSR RNTS 


764 


LDA 4$A0 


649 




JSH AFF.256 


765 


JSP COOT 


650 




JHP OPTEST 


766 


LDA MEM2 


651 


OPTXIT 


JHP OPTEST 


767 


JSP PRBYTE 


654 






768 


RTS 


655 




RTS 


794 ; 





65 B 










795 OCTRES 


HEX 


00000000 


659 


OPCV 


BYT !1B 




797 




HEX 


00000000 


660 


QPCH 




BYT Q 




798 


QCT1QCTB; 




661 


0P1ND 


BYT 




BOO 








662 


OPINDMAX BYT 16 




801 




STY 


0108SAVY 


667 










B02 




CLC 




66B 


CJ 


ASC 


"INCREMENTE OCTET 


l" 


B03 




LDY 


00 


669 




HEX 


00 




804 


*I 


LSB 




670 


C2 


ASC 


"DECREMENTS OCTET 


l" 


SOS 




BCS 


>2 


671 




HEX 


00 




B06 




PHA 




672 


C3 


ASC 


"INCREMENTE OCTET 2- 


807 




LDA 


§0 


673 




HEX 


00 




SOB 




STA 


OCTRES, Y 


674 


C4 


ASC 


"DECREHENTE OCTET 2" 


809 




PLA 




675 




HEX 


00 




810 




JHP 


>3 


676 


CS 


ASC 


"INCREMENTE OCTET 


3» 


811 


"2 


PHA 




677 




HEX 


00 




812 




LDA 


01 


678 


C6 


ASC 


"DECREHENTE OCTET 


3* 


813 




STA 


OCTRES. Y 


679 




HEX 


00 




814 




PLA 




680 


CI 


ASC 


"ET LOG I OOP." 




815 


"3 


I NY 




6B1 




HEX 


00 




816 




CPY 


18 


682 


CB 


ASC 


"OU JDGTQtIF" 




817 




BNE 


<1 


683 




HEX 


00 




M1B 




r.nv 


OlOBSAVY 


£84 


ro 


ASC 


"OV EXCLUSIF* 




919 




RTS 




*fl5 




HEX 


00 




021 








ess 


CIO 


ASC 


"ECHANCE DE BITS" 




822 


OlOSSAVY 


BYT 





687 




HEX 


00 




924 


1 






688 


rr t 


A PC 


"LIRE SECTEUR" 




B2S 


OCTSOCTl 






689 




HFY 


00 




927 








690 


CT? 


ASC 


"EXECUTION- 




92 




STY 


OBOISAVY 


691 




HEX 


DO 




$39 




LDA 


§0 


692 


CI 3 


ASC 


"INCREMENTE N.l" 




830 




STA 


080 IRES 


693 




HEX 


00 




831 




LDY 


t7 


694 


CI 4 


ASC 


"DECREMENTS M.l- 




B32 


- a 


LDA 


OCTREE, Y 


695 




HEX 


00 




833 




BNE 


>2 


696 


CIS 


ASC 


"INCREMENTE H.2" 




834 




CLC 




£97 




HEX 


00 




835 




POL 


OB01PES 


698 


CI 6 


ASC 


"DECREHENTE H.2" 




B3C 




JHP 


>3 


699 




HEX 


00 




B37 


-r 


SEC 




700 


C2 7 


ASC 


"PISTE 5U IV ANTE" 




838 




POL 


OB 1 RES 


701 




HEX 


00 




839 


"3 


DEY 




702 


CIS 


ASC 


"SECTEUR 3VIVANT" 




840 




BEL 


<1 



1<I 

9S J 




962 




LDA 


HEM1 


842 




063 




DNL~ 


>2 


843 ; 




9€4 




JSR 


SOUNDO 


844 OB01RES 


BYT 


965 


"1 


INC 


MEH1 


84S OBOISAVY 


BYT 


966 




JSR 


AS. MEM 


647 : 




967 




PLA 




B4B ECH2BITS 




968 




RTS 




851 1 




971 








852 




972 


ALC9 


LSR 




in 




973 




LSR 




mK u 
— m 




974 




CLC 




a 

!v J 




97S 




ADC 


HEM1 


JO 


PHA 


976 




PHA 




857 


t OX *"f~MP3 


977 




LDA 


MEM I 


858 


LDA OCT RES , X 


978 




BNE 


>1 


659 




979 




JSP 


SOUNDO 


$6Q 


STA lKIR£S,X 


980 


"1 


INC 


HEM1 


861 


LDX ECHE2 


981 




JSR 


AF.HEH 


862 


PLA 


902 




FLA 




863 


STA CAITHES X 


9B3 




RTS 




A ft 4 




989 








865 


UlA tJH(ll RES 


990 


SOUNDO : 






866 


j In CL nKr.j 


991 




JSP 


SNDSAVRG 


8b t 


. .- r 1 .:.-. - ,'. 


992 




LDX 


ffBO 


Hbtf 


RTS 


993 


»J 


TXA 




h lit 




994 




EQP 


1 580 


fl 72 SCUSl 


BYT U 


995 




TAX 




872 ECHE2 


BfT 


996 


't 


DEY 




873 ; 




997 




BNE 


<2 


874 ECHHES 


BIT Q 


996 




BIT 


SPKR 


875 ECBSAVX 


BIT 


999 




TXA 




BH2 ; 




1000 




ADC 


rseo 


88 J ALGI 


CLC 


1001 




TAT 




S84 


ADC MFM 1 


1002 


"3 


DEI 




885 


PHA 


1003 




BNE 


<3 


386 


I J) A MPN r 


1 004 




BIT 


SPKR 


887 


BNE >1 


luoh 




DEX 




888 


JSR SOUND 


1006 




BNE 


<1 


889 '1 


INC HE Ml 


100/ 




JSR 


SNDRSTRG 


890 


JSR AF .MEM 


100B 




RTS 




B91 


PLA 


1011 








892 


RTS 


1012 


S0VND1 : 






895 ; 




1013 




JSR 


SNDSAVRG 


896 ALG2 


ASL 


1014 




LDA 


SFLAG 


897 


PHA 


1015 




BEQ 


>2 


BOO 


von juufiL'U 


1016 




LDA 


j i 


899 


PLA 


1017 




STA 


SFLAG 


900 


RTS 


101 B 


"3 


LDX 


40 


903 ; 




1019 


"1 


LDA 


SPKR f X 


904 ALG3 


LSR 


1Q20 




INX 




905 


PHA 


1021 




CPX 


t'.30 


906 


JSR SOUUDO 


1022 




BNE 


*J 


907 


PLA 


1023 




SNC 


SFLAG 


909 


RTS 


1024 




LDA 


SFLAG 


911 ; 




1025 




CMP 


45 


912 ALG4 


ASL 






BNE 


<3 


913 


ASL 


1 v< t 




JSR 


SNDRSTRG 


914 


PHA 


11)28 


£ 


rti -> 




915 


JSR SOUUDO 


1031 








916 


PLA 


1032 


SFLAC 


BYT 


j 


917 


RTS 


1033 


SNDSAVA 


BYT 





920 ; 




1034 


SNDSAVX 


BYT 





921 ALGS 


LSR 


1035 


SNDSAVY 


BYT 





922 
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0E10- OD C9 09 DO 24 A9 20 8D 
0E18- Dl OB A9 6D 3D 02 OB A9 
0E2O- 10 8D D3 OB 20 40 OC AD 
0E28- FF OF 8D 9A 10 AD OO 10 
OE30- 3D 9B 10 20 BE OB 4C 21 
0E38- OD C9 OA DO 04 EA 4C C7 
0E40- 08 C9 OB DO 06 20 BE OB 
0E48- 4C 21 OD C9 OC DO 09 BE 
OE50- FF OF 20 01 10 4C 21 OD 
0E58- C9 OD DO 09 CE FF OF 20 
0E60- 01 10 4C 21 OD C9 OE DO 
0E68- 09 EE 00 10 20 01 10 4C 
0E70- 21 OD C9 OF DO 09 CE 00 
OE18 10 20 01 10 4C 21 OD C9 
0EB0- 10 DO IB EE 2F OC AD 2F 
0E88- OC CQ 21 DO 05 A9 00 80 
0E90- 2F OC 20 14 OB 20 19 OC 
0E98- 20 BE OB 4C 21 OD C9 11 
0EA0- DO IB EE 30 OC AD 30 OC 
0EA3 CO 10 DO 05 A9 00 QD 30 
OEBO- OC 20 14 OB 20 19 OC 20 
0EB8- BF. OB AC 71 OO AC 21 OD 
OECO- 60 12 OO OO 10 C9 CE C3 
0EC8- D2 C5 CD C5 CE D4 C5 AO 
0ED0- CF C3 DA C5 D4 AO Bl OO 
0ED8- C4 C5 C3 02 C5 CD C5 CE 
OEEO- D4 C5 AO CF C3 D4 C5 D4 
0EE8- AO Bl 00 C9 CE C3 D2 C5 
OEFO- CD C5 CE D4 C5 AO CF C3 
0EF8- D4 C5 D4 AO B2 00 C4 C5 
OFOO- C3 D2 C5 CD C5 CE D4 C5 
OF08- AO CF C3 D4 C5 D4 AO B2 
0F10- 00 C9 CE C3 D2 C5 CD C5 
0F18- CE D4 C5 AO CF C3 D4 C5 
0F20- D4 AO B3 00 C4 C5 C3 D2 
0F28- C5 CD C5 CE D4 C5 AO CF 
0F30- C3 D4 C5 D4 AO B3 OO CS 
0F38- D4 AO CC CF C7 C9 Dl D5 
0F40- C5 00 CF D5 AO CC CF C7 
0F48 CO Dl D5 C5 OO CF D5 AO 
0F50- C5 U8 CS CC D5 V3 C9 C6 
0F58- OO CS C3 C8 CI CE C7 C5 
0F60- AO C4 CS AO C2 C9 D4 D3 
0F6B- 00 CC C9 D2 C5 AO D3 C3 
0F70- C3 04 C5 05 D? 60 C5 D8 
0F78- C5 C3 D5 D4 C9 CF CE OO 
Ot'80- C9 CE CS 02 C5 CD C5 CE 
0F88- DA CS AO CO AR El OO C4 
OFOO- C5 C3 D2 C5 CD C5 CE D4 
OF 98- C5 AO CD AE Bl 00 C9 CE 
OFAO- C3 D2 C5 CD C5 CE D4 CS 
0FA8- AO CD AE B2 00 C4 C5 C3 
0FB0- D2 C5 CD C5 CE D4 C5 AO 
0FB8- CD AE B2 00 DO C9 D3 D4 
0FC0- C5 AO D3 D5 C9 D6 CI CE 
0FC8- D4 CS 00 D3 C5 C3 D4 C5 
0FD0- D5 D2 AO D3 D5 C9 D6 CI 
0FD8- CE D4 00 C5 DB EB FE 11 
OFEO- 24 37 42 4D 59 69 76 80 
0FE8- 8F 9E AD BC CB OE OE OE 
0FF0- OE OF OF OF OF OF OF OF 
0FF8- OF OF OF OF OF OF OF 01 
1000- 00 A9 22 85 24 A9 16 85 
1008- 25 20 22 FC AD FF OF 20 
1010- DA FD A9 AO 20 ED FD AD 
1013- OO 10 20 DA FD 60 00 OO 
1020- 00 00 00 00 00 OO 8C 49 
1028- 10 18 AO 00 4A BO OA 48 
1030- AO 00 99 IE 10 68 4C 40 
1038- 10 48 A9 01 99 IE 10 68 
1040- C8 CO 08 DO E7 AC 49 10 



1048- 60 00 8C 6C 10 A9 00 8D 
1050- 6B 10 AO 07 B9 IE 10 DO 
1058- 07 18 2E 6B 10 4C 64 10 
1060- 38 2E 6B 10 88 10 ED AC 
1068- 6C 10 60 OO OO 8E 9D 10 
1070- 20 26 10 AE 9A 10 BD IE 
1078- 10 48 AE 9B 10 BD IE 10 
1080- AE 9A 10 9D IE 10 AE 9B 
1088- 10 68 9D IE 10 20 4A 10 
1090- AD 6B 10 3D 9C 10 AE 9D 
1098- 10 60 00 OO 00 00 18 6D 
10AQ- FF OF 48 AD FF OF DO 03 
10A8- 20 2A 11 EE FF OF 20 01 
10B0- 10 68 60 OA 48 20 2A 11 
10B8- 68 60 4A 48 20 2A 11 68 
10C0- 60 OA OA 43 20 2A 11 68 
10C8- 60 4A AA 48 20 2A 11 68 
10D0- 60 OA 18 6D FF OF 48 AD 
10D8 FF OF DO 03 20 2A 11 EE 
1UE0- Ft' OF 20 01 10 68 60 4A 
10E8- 18 6D FF OF 48 AD FF OF 
10FO- DO 03 20 2A 11 EE FF OF 
10F8- 20 01 10 60 OA OA 18 6D 
1100- FF OF 48 AD FF OF DO 03 
1108- 20 2A 11 EE FF OF 20 01 
1110- 10 68 60 4A 4A 18 6D FF 
7118- OF 48 AD FF OF DO 03 20 
1120- 2A 22 EE FF OF 20 01 10 
1128- 68 60 20 73 11 A2 BO 8A 
1130- 49 80 A8 88 DO FD 7C 30 
1138- CO 8A 69 80 A8 88 DO FD 
1140- 2C 30 CO CA DO E9 20 7D 
1148- 11 60 20 73 11 AD 6F 11 
1150- FO 1C A9 01 8D 6F 11 A2 
1158- 00 BD 30 CO E8 EO IE DO 
1160- F8 EE 6F 11 AD 6F 11 C9 
1168 - 05 DO EC 20 7D 11 60 01 
1170- 00 00 00 8D 70 11 BE 71 
1178- 11 8C 72 11 60 AD 70 11 
1180- AE 71 11 AC 72 11 60 8D 
1188- DA 11 BC DB 11 AD 00 04 
1190- 8D DC 11 20 F2 11 20 DE 
1198- 11 A3 01 20 95 FE AO 00 
11A0- Bl 06 EA EA EA BC DD 11 
11A9- 09 80 CP FF FO 09 C9 80 
11B0- 90 06 C9 AO BO 02 A9 AE 
11B8- 20 4C 12 AC DD 11 C8 CO 
11C0- OO DO DD A9 3D 20 4C 12 
11C8- A9 OO 20 95 FE 20 11 12 
11D0- AD DC 11 AD DA 11 AC DB 
11D8- 11 60 OO OO OO OO AO OO 
11EQ- 85 20 85 22 85 24 85 25 
11E8- 20 22 FC A9 01 85 21 85 
UFO- 23 60 A5 20 3D 33 12 A5 
llb'8- 22 BD 34 12 A5 21 8D 35 
1200- 12 A5 23 BD 3f 17 AS 24 
1200- QD 37 12 A5 25 8D 38 12 
1210- 60 AD 33 12 85 20 AD 34 
1218- 12 85 22 AD 35 12 85 21 
1220- AD 36 12 85 23 AD 37 12 
1228- 85 24 AD 38 12 85 25 20 
1230- 22 FC 60 00 OO 00 OO OO 
1238- OO A9 03 QD F2 03 A9 08 
1240- 8D F3 03 AD F3 03 49 A5 
12A8- 8D F4 03 60 48 AD 68 12 
1250- C9 3C DO OC A9 OO BD 68 
1258- 12 85 24 A9 8A 20 ED FD 
1260- EE 68 12 68 20 ED FD 60 
1268- 00 85 EB 84 EC AO 00 Bl 
1270- EB FO 07 20 4C 12 C8 18 
1278- 90 F5 60 01 AD ?B 12 FO 
1280- OC A9 8A 20 ED FD A9 OO 
1238- 85 24 8D 68 12 60 
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Aulant Favouer tout de suite, 
nous sommes dans fere de refor- 
mation. Et avant de pouvoir affijtyser 
les donnees qui proviennent des 
quatre coins du monde, il faut deja 
pouvoir les attraper. 

Vous pouvez toujours chauffer la 
plante dcs picds de vos employes, 
sans un Macintosh, un bon modem 
et un programme de communica- 
tion, impossible de leur £aire dire 
quol que ce soit & propos de votre 
con'espondaiit de Chicago, ni sur la 



vente de maillots de bain pendant 
Fete 1985 au pOle Nord. Ne vous tor- 
turez pas davanrage, nous sommes 
enfin disposes a tout vous reveler 
a propos de nos moyens de com- 
munication. 

Les trois modem Apple sont ; 
-Le modem 300 bauds, d'usage tres 
simple ; peu cher, il permet a n'im- 
porte quel etudiant de chercher par- 
rout des renseignements pour son 
iiileiTOgaliou du lendemain. - Le 
modem universel 1200/75 Videotex 



et300 bauds qui permetdecommuni- 
quer en videotex! sur des applica- 
tions pseudo-graphiques (en mode 
1200/75) et en texte de fagon tres 
ordinaire (en mode 300). Universel, 
il est ideal pour faire parler les avo- 
cats, les medecins on les dentistes. 
- Le modem 1200 bauds M du- 
plex : il fait parler les gros systfcrnes 
et ce, a grande Vitesse. Lors des 
echanges de llcliiers contenant une 
quantite impoitante d'informations, 
ce modem est unc mcircille, compte 



Apple Computer France. Avenue de 



ns de vous toe parier. 
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Modem Full duplex 1 200 bands. 






3C0BAUDS 1200HAUDS 
I 1 



Modem Universe! I 200/ 75 Videotex 500 bauds. 



tenu de Fexistence de "protocotef, 
qui sur des liaisons specialises 
1200 bauds, se chargent de la verifi- 
cation de la validite des informations 
transmises. evitant ainsi la plupart 
des erreurs de transmission. C'est 
amusant de voir comment une si 
petite machine pent fails parler si 
tacilement de giganiesques sysl&ines 
de donnees. 

Dire que tant d'hommes ont 
cherche des moyens tres compliques 
pour obtenir des renseignements, 



alors qtfun programme de commu- 
nication comme Mac TfeU 2 de Hello 
Informatique ou Mac Terminal peut 
faire avouer £ n'importe quel serveur 
d'information, n'importe quoi. 

Mac Terminal peut interroger un 
reseau telematique comme Calvados, 
messagerie electronique frarpise 
qui peut vous faire rencontrer beau- 
coup plus de monde que sur la place 
de 1 Opera aux heures de pointe. 
Vous pouvez echanger des informa- 
tions, connaitre les cours de la 



Bourse, consulter les 
deueches de I'AFR Mac 
Tell 2 permet d'emuler 
un Minitel avec tous 
les avantages d'un 
Macintosh (memori- 
sation, impression). 

Maintenant, deci- 
dez-vous, decidez en 
etant au courant de 
tout, ou decidez en 
etant au courant de 
rien. 




Apple 
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Llbrairie : Marianne Sutz 

Un 'motif de satisfaction 



J ous vous proposions. 
/^Ll dans le numero 18 de 
/ W "Pom's", deux ruuti- 
* nes qui vous permet- 
taient de recuperer les icones et 
les curseurs du systeme. Cette 
fois, notre attention va se porter 
sur les 38 "motifs" (pattern) 
predefinis, utilises par le tableau 
de bord pour determiner 
1'apparence du "bureau". La 
definition de motifs dans un 
programme Basic etant longue et 
fastidieuse, une telle routine nous 
semblait indispensable. Ceci va 
aussi nous perrnettre de decrire, 
dans ses grandes lignes, le 
fonctionnement de rinstruction 
"LIBRARY" qui n'est evoqude, 
dans lc manuel d'utilisation du 
Basic Microsoft, que dans la Iiste 
des mots-cle. Vous trouverez 
done, jointes & cet article, deux 
versions de la routine : 

• une version que nous 
appelerons "tableau", puis- 
qu'elle se loge dans un tableau 
de variables entires (e'est la 
methode utilisee dans les 
precedents nuineros dc 
"Pom's"); 

• une version "LIBRARY" qui, 
comme nous le verrons un peu 
plus loin, requiert la presence 
d'un fichier ressource. 



Version "Tableau" 

La routine doit etre implantee 
dans un tableau de variables 
entires de vingt elements, et son 
adresse de base correspond au 
premier de ces elements. Pour 
obtenir cette adresse (pour le 
CALL) il faut done utiliser : 

Adr!=VARPTR(Tableau%(0)) 

avec OPTION BASE (valeur 
pardefaut), ou : 

Adr!=VARPTR(Tableau%(1)) 

avec OPTION BASEL 



II suffit ensuite d'appeler la 
routine en lui passant, comme 
argument, le numero de rdfdrence 
du motif desire. Cette valeur doit 
etre comprise entre et 37 inclus 
(voir lc tableau ci-joint). Un 
nombre inferieur a ou superieur 
b 37 ne provoque pas de 
"plantage", mais on obtient alors 
n'importe quoi comme motif. Le 
numero peut etre passe sous la 
forme d'une expression ou d une 
variable qui doit absolument etre 
entire (2 octets soit 16 bits). 
Ainsi : 

Adr! N%*2+1 
et 

Adr! N1% 

constituent des appels valides de 
la routine. 

Programme de 
demonstration 

DEFINT A-Z.DIM R(3),C(19) 
DATA &h4E56.0.&h594F.&h2F3C,&hS041 
DATA &h5423,&h3F3C I 0,&hA9AO,&h225F 
DATA &h2251,Sh302E,8,&hC0FC,8 
DATA &h487l,Sh802,ShA89D.&h4E5E 
DATA &h4E75 

FOR UO TO 19 READ C(i):NEXT 

FOR l~23 TO 479 STEP 24 

LINE(l,Q)-(i,300).NEXT 

FOR 1=23 TO 287 STEP 24 

LINE(0, J)-(500, l):NEXT 

10 RANDOMIZE TIMER 

R(0) =24 'IN T(RND * / 3) 

R(1).24'INT(RND'21) 

R(?)=R(0)*23:R(3)=R(1)+23 

N=INT(RND*38):AI-VARPTR(C(0)):A! N 

PAINTRECT VARPTR(R(0)).-COTO 10 



Version 
"LIBRARY" 

L'instruction "LIBRARY" permet 
l'utilisation directe de routines 
creees avec le systeme de 
developpement 68000, et autorise 
des liens beaucoup plus etroits 
entre ces routines et le Basic 
Microsoft (version 2.00, (d) ou 
(b)). Sans trop entrer dans les 
details (on manque un peu de 
place !), il convient de citer la 
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posibilite de generer les messages 
d'erreur du Basic depuis la 
routine en assembleur, de 
controler le type des arguments 
passes, d'utiliser comme 
arguments des variables qui n'ont 
pas ete prealablement definies, 
etc... Nous aurons bien sdr 
l'occasion de reparler de cela 
dans les prochains numeros de 
"Pom's" mais, cn attendant, nous 
vous conseillons de demander 2 
la societe Microsoft un document 
polycopie de 21 pages intitule 
"Microsoft Basic for the 
Macintosh. Building Machine 
Language Libraries", ou Ton 
trouve toutes les adresses liees au 
systfcme, ainsi que des exemples 
d'application. 

Voyons maintenant quelle est la 
methode pour employer la 
version "LIBRARY" de notre 
routine. 

Elle doit se trouver dans un 
fichier ressource, qui doit 
lui-meme etre situe, de prefe- 
rence, sur la meme disquette que 
le Basic Microsoft. 
Si vous disposez de la disquette 
"Mac Pom's 21", pas de 
probl&me : lc fichier s'y trouve 
(sous le nom "PatLib.Rscr"), de 
meme que les fichiers necessaires 
a sa creation (PatLib.Job, 
LIBinit.Asm, PatLib.Asm, Pat- 
Lib.Link et PatLib.R). 
Si vous ne disposez pas de la 
disquette mais que vous etes en 
possession du systeme de 
dcveloppement 68000, il vous 



faudra saisir les cinq fichiers 
precites, puis utiliser le fichier 
PatLib.Job (avec "Executive"), 
qui se chargera de I'enchainemenL 
des operations. 

Dans le cas ou la disquette 
"Pom's" et le systeme de 
d6veloppement 68000 vous 
feraient defaut, dcsolc... il n'y a 
pas de solution. Ceci constitue 
d'ailleurs le principal inconve- 
nient des routines "LIBRARY" : 
leur creation esL impossible sans 
le systeme de developpement, et 
il est alors necessaire de se 
reporter h la bonne vieillc 
methode du tableau de variables. 

Liaison avee le 
programme Basic 

Avant le premier appel de la 
routine, nous devons la lier au 
Basic avec ^instruction 
"LIBRARY", suivie du nom de la 
ressource (le fichier contenant la 
routine en assembleur) ou d'une 
variable alphanumerique dans 
laquelle le nom aura ete 
prealablement place. Dans le 
programme de demonstration : 
LIBRARY "PatLib.Rscr" 
se charge de ceue operation. 
Si la routine ne se trouve pas sur 
la m&me disquette que le Basic 
Microsoft, il est indispensable 
que le nom de la ressource soit 
precede du nom de volume 
("Pom's 21 :PatLib.Rscr", par 
exemple) sinon, on se relrouve 
avec le message "FILE NOT 
FOUND". Si le nom 



"PatLih.Rscr" ne vous convient 
pas, il est possible de renommer 
le fichier. 

Appel de la routine 

On procSde de la meme fa§on 
qu'avec la version "tableau", a 
une difference prbs : il n'est pas 
necessaire de definir la variable 
du CALL avec VARPTR et le 
nom de la routine est impose par 
son auteur (nous avons baptisee 
celle-ci "PatLib"). Notons aussi 
un petit "plus" par rapport k la 
version "tableau" : la routine 
genere le message d'erreur 
OVERFLOW du Basic si 
l'argument passe est superieur a 
37 ou inferieur k (bien que, 
dans ce cas, il s'agirait plutot de 
"underflow" mais, ce message 
n'etant pas disponible. . .). 

Fermeture de la routine 

En fait, la fermeture n'est pas 
indispensable, puisque les 
instructions NEW, SYSTEM et 
RUN detachent la routine du 
Basic. Si, pour une raison 
quelconque, on doit fermer la 
routine, on peut utiliser l'instruc- 
tion LIBRARY CLOSE. 

Avant de conclure, il convient de 
souligner le caractere le plus 
interessant du "systSme 
LIBRARY" : il permet 'Tover- 
lay" dynamique. En effet, si nous 
passons la valeur dans !e 



Source de la routine de chargement des "motifs 9 ' 



t9 



oooo 






. Trap 


_Get Resource $A9A.O 




Retoume le "Handle" d'une zessouzae ^'■'^^ 


oooo 






. Trap 


_PenPat 


$A89D 




Initialise le "motif" a utiliser. 


OOOO 
















0000 


4E56 


0000 




LINK 


A6, 40 






0004 


594F 






SUBQ 


S4,SP 




4 octets au sommet de la pile pour "Handle" . 


0006 


2F3C 


5041 


5423 


MOVE.L 


t'PAT#',-(SP) 




Empile le type rte re a source <3 rechercher. 


oooc 


3F3C 


OOOO 




MOVE 


*0,-(SP) 


i 


Empile 1 ' identlflcateur de la ressource (0J . 


0010 


A9A0 






GetRRsnu rce 




R&tourne l'adresse du pointeur ("Handle") . 


0012 


225F 






MOVE.L 


(SP) +,A1 


r 


Le "Handle" est place dans le registre Al. 


0014 


2251 






MOVF.A. T, 


(Al) r Al 




Le pointeur est place dans le registre Al. 


0O16 


302 E 


0008 




MOVE 


8(A6),D0 


r 


Le nurnero passe depuis le Basic dans DO. 


0O1A 


C0FC 


0008 




MIU.U 


t8, DO 


1 


Multiplie ce nurnero * 8 (1 motif= 9 octets). 


0O1E 


4871 


OB 02 




PEA 


2(A1,D0.L) 


f 


Empile 1'adresse du motif selectionne. 


OQ?? 


A89n 






_P&nPat 




• 

w 


Change le "motif" du "crayon". 


0024 


4E5E 






UNLK 


A6 






0026 


4F.75 






RTS 
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registre dc donnees DO avant lc 
retour au Basic, la routine est 
"purgeable". De ce fait, si la place 
en memoire devient insuffisante, 
la routine sera automatiquement 
evacuee. Par la suite, un appel dc 
la routine provoquera un 
rechargemenl aulomatique. Ceci 
s'avere particulierement utile pour 
les routines volumineuses et, plus 
generalement, pour les posses- 

seursdeMac 128Ko. 



■ 







Programme de 
demonstration 

Version "LIBRARY' 1 

LIBRARY "PatLib.Rscr" 
DEFINT A 2 DIM R(3) 
FOR U23 TO 470 BTEP 24 
UNE(I,0)-(I,300).NEXT 
FOR 1=23 TO 287 STEP 24 

LINE(O.IH500J):NEXT 

10 RANDOMIZE TIMER 

R(0)*24'tNT(RND*13) 

R(1)=24'INT(RND'21) 

R(2)=R(0)+23:R(3)=R(1)+23 

N=INT(RND'38}:PatUb! N 

PAINTRECT VARPTR(R(0)).GOTO 10 



MacPaint A&tuces 

En mode Crayon et avec le bouton de la souris enfonce, le deplacement 
s'obtienl avec la touche Option, et le pointage de !a loupe a l'endroit de 
la flfcche avec la touche Commande. 

Tous les outils, meme le lasso, b6n£ficiem de la direction forcee grace 
la touche Majuscules. 

Avec Majuscules, Commande et Option, on peut deformer un objet en 
preservan! sa structure. Ainsi, le cercle de gauche est-il s£lectionn6 par 
le rectangle; en appuyant sur les trois touches et en tirant vers la droitc, 
on obtient le rdsultat de la figure 2. 




Figure 1 Figure 2 

Si Ton a aussi s£lectionn6 1a grille, on preserve non seulement la 
structure, mais aussi tout decor qui y serait present (fig. 3). 





Figure 3 

Quand on fait des copies multiples, avec les touches Commande et 
Option, ieur espacement est defini par Tepaisseur de trait selectionnde 
en bas et b gauche de l'^cran. 



PatLib.Asm 



.Trap 



PenPat 



GetffextLibArq 
Basi cError 



EVU 
EQU 



5A9AO 
$A89Q 

$2A 
$42 



SUBQ t4,SP 
MOVE.L i'PATf,-(SP) 
MOVE *0,-(SP} 
GetResource 



Eire ur 



MOVE. I. 

MOVEA.L 

JSR 

MOVE 

TST 

OMI.S 

CMP 

BGT 

MULU 

HLA 

PenPat 
MOVEQ 
RTS 
MOVEQ 
JSR 



(SP)+,A2 
(Al ) , A7 

GetNoxtlibArg (AS) 

(A2),D0 

DO 

Crreur 
§37, DO 
Erz-euz 
§8,00 
2(A1,D0.LJ 

00, DO 

96, D2 

BasicError(AS) 



PatLibJob 



Asm LIBinit .Asm 

Asm PatLib .Asm 

Link PatLib.Link 

Rmaker PatLib.R 



LIBiniLAsm 



(Executive) 

Exec Edit 

Exec Edit 

Exec Edit 

Exec Edit 



LIBVER Result 



EQU € 



CLR LIBVER Result (AO) 

MOVEQ *Q r DO 



MacPaint Astuces 



PatLib.R 

PatLib.Rscr 

BLIB 

TYPE CODE = GNRL 

LIBinit, 1 

.R 

Pat Lib CODE 1 

TYPE CODE = GNRL 

Pathib,? 

.R 

Pat Lib CODE 2 



Suite... 



• Pour entrer du texie continu en naodifiant la police, la taille ou le style 
(voir ci-dessous), faire "Enter" (pas "Return") avant chaque 
modification. 

Chongement de tain*, de 
style (qros. soulig nfe) 

OU de pol ice o^c Enter. 



PatLib.Link 



/ OUTPUT Patlib 

LIBinit .Uel 

< 

PatLib.Ral 



Quand on maintienl la touche Commande enfoncee, tout decor applique 
avec la brpsse se superpose en transparent aux decors anterieurs. Si le 
nouveau d^cor est plus clair, transiter par une inversion d'image. 

Lorsqu*on a choisi l'option "Editer un motif' on peut dditer n'impone 
quel decor pritev^ par simple clic dans la fengtre MacPaint 

Pour quitter MacPaint et £jectcr d'un coup la disquette, maimenir U 
touche Commande enfoncee pendant le choix de 1'oprion Quitter. 
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Une corbeille dans la « 

Jean-Luc Bazanegue 



"M "yous avons tous vu 
I^L I apparaitre, sur 1'ecran 
/ ^wJ du Macintosh, les 
JL ▼ messages "Le disque 
est sature. Recommencez" , "Le 
disque est suture* . Effacez des 
documents ou changez de 
disque." , ou encore "Place 
disponible insuffisante pour 
enregistrer. Utitisez un autre 
disque/' . Ce ne sont bien sur que 
quelques exemples de ce qui peut 
se presenter lorsque la disquette 
de demarrage est saturee, ou 
proche de la saturation. 

La seule solution consiste alors & 
retourner au "Finder" pour 
effectuer les manipulations 
necessaire, ce qui se traduit, dans 
la plupart des cas, par la 
destruction d'un ou plusieurs 
fichiers devenus inutiles (bout 
d'essai, ancienne version du 
fichier traite, etc. . .). Tout cela fait 
perdre du temps, et il nous fallait 
nous mcttrc a la recherche dune 
solution. 

Voici done un petit accessoire de 
bureau propre a paUier le manque 
de "corbeille" lorsqu'on utilise un 
programme. L'accessoire ici 
propose est done une "corbeille 
de bureau", qui a le meme role 
que son homonyme du "Finder", 
mais, et nous le verrons un peu 
plus loin, avec des caracteris- 
tiques un peu plus "expeditives" 
(dans un premier temps, nous 
avions baptise la chose "Destine - 
teur", mais nous avons prefere 
remplacer ce nom quelque peu 
terrorisant par "•-> Corbeille"). 



Mode d'emploi 

L'accessoire en question se 
trouve dans le fichier "systeme" 
de la disquette Pom's Mac 21; 
vous pouvez done utiliser 
directement ce fichier ou, si vous 



File Edit Style Font Layout Rrrange Fill Lines Pen 



•-> corbeille. fl... 

Corbeille. fl... 
•-> Corbellle.CE 
•-> Corbeille.L... 
•-> Corbeille. R 
.BOut 

Asm 



Ouurir 



Pour trouuer Pom's : 

■ les Mosques ou le 39.51.24.43 



Pour supprimcr un fichier : 
• le seleclionner, cllquer sur Ouurir. 



-> Corbeille.Asm 



Routines utllisees par 1 'accessoire. 



Trap 


_Pack3 


SA9EA 


Trap 


rtofprn 


SAO 7 


Trap 


jBetvalTnfo 


$A OB 7 


Trap 


_OftUna 


tA035 


Trap 


MountVol 


MOOT 


Trip 


E~lashrtcn'jBar 


5ASMC 


crap 


_5yseeep 


SAKS 


Trap 


_copyfli.es 




Trap 


SetPort 


SA873 


Trap 


DlsposWlndow 


SA914 


Trap 


_NewWlndow 


SA913 


Trap 


^Drawstring 


$A884 


Trap 


Move To 


SAB 9 3 


Trap 


_L1hqTo 


SAS91 


Trap 


_PenPa t 


SAB9D 


Trap 


Text Font 


$Aan? 


Trap 


Begin Update 


SA922 


Trap 


_CndUpda Se 


SAD23 


Decal age 


s par i appot L 


a la Uaaet 




oecvoiwro,, 


_omine § 




Aopel du "Standard file package'. 
Destruction d'un fichier. 
Lecture des Informations sur les volumes. 
Ml <*» "heirs llqne" d'un volume. 
Wise "en Ji^rte" d'Ufl Volume. 
Inversion f video) d'un menu. 

Pt'OVoqwc un "Dip" ou une inversion si volumc-O. 

A peu pres equivalent au ~rUT~ du Basic 

Inaique le port grapnique covrant. 

Llb&re la memoiro utilises par une zenetre. 

Pour creer une nouvelle fen&tre. 

Aftlche une chains de cafActefes. 

Deplace le "crayon" a la position lndlque. 

Trace uiie Ugne depuls la position du crayon. 

Deterni/ie le "motif du "crayon". 

Police de caractcres a utiliser. 

Debut ef*> mt **• i Jour d'une fenetre. 

Fin de n»i*e a jour d'une fen&tre. 



loConpletlon 




sc 


Polnteur pour entrees/sorties asynchrones . 


loResult 


sou 


$10 


2 ocCeCa pour tin &vent\iel code d'erreur . 


loFlleNaste 


a» 


912 


Polnteur sur le nam de fichier. 


loVRefNum 


£OV 


S16 


2 octets pour le numero de reference du volume. 


loFlleType 


£&J 


SlA 


1 octet pour le type de fichier. 


iaVQRlSHe 


BOU 


S40 


Tallle du caapon (64 octets}. 


loVNPtr 


fiDt' 




Polnteur sur le nca de volume. 


lOVolIn dct 




«C 


2 octets pour le nunArn d'Jnrtp* dn vnlrtme. 




rapport 


a la base du tampon 


TamponPep- de 72 octets, utlllst par la routine 


; _tacKJ pour le 


recour 


des informations. 




rCood 


mi 





Drapeau: si "AhfiUlef", 1 si "Wvrlr". 


rVol use 


EQU 


6 ; Nuiaero de reference du volume. 


[Version 




B 


SumvCQ de version du fichier. 


rfJame 


see 


10 


Nom du ilchler (Maximum 63 octets). Le premier 








octet lndlque la longueur du nom. 


Equivalences dl verses 






rfCotFlle 




2 


WJocrfli/r d» routine (pour _Pank3J _ 


FtndcrNomc 


EQU 


S2E0 


AdressB de t Lockage du nom du 'Finder". 
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desirez placer "•-> Corbeille" 
dans un fichier systeme residant 
sur une de vos disquettes, il est 
bien sur possible de l'installer 
avec 1'utilitaire "Font/DA 
Mover". 



Cet accessoire est d'un emploi 
tr£s simple; un mode d'emploi au 
sens propre du terme serait done 
superflu. En revanche, quelques 
imses en garde s'imposenl : 

• "•-> Corbeille" ne peut 
pas etre appele depnis le 
"Finder"; ce serait inutile 
puisque nous disposons de la 
corbeille et, de plus, 
dangereux, etant donne que le 
"Finder" n'est pas apte a 
reconnaitrc la destruction d'un 
fichier autrement que par 
Tintermediaire dc la corbeille. 
Une tentative d'ouverture de 
1'accessoire depuis le "Finder" 
se soldera par un "Bip" ou, si 
le volume sonore est i\ 0, par 
une inversion dc la barrc des 
menus. 

• "•-> Corbeille" peut de- 
truire n'importe quel fi- 
chier, meme s'il est ver- 
rouille, et quel que soit son 
type. L'accessoire refuse 
seulement de detruire les 
fichiers ouverts (le fichier 
systeme, l'application en cours 
ainsi que les eventuels fichiers 
qui lui sont lies et le fichier en 
cours de traiteinent). Si Ton 
essaie de detruire un fichier 
ouvert, la barre des menus 
clignote rapidement pendant 
une petite seconde pour 
signaler le problem e, et nous 
revenons a l'application en 
cours. 



cvrApname 

dec J Window 
dCtlRefNua 
WlndowKlnd 

dBoxProc 



BP 

EQU 
ECU 
EQU 

EQU 



J? JO 

S1E 
SIB 
56C 

1 

SFTFrrrsB 



; Adresse ae szacxage du nom ae t' application en 

i cours. 

; Pointeur sur la fenetre de l'accessoire . 

; Numero de reference de 1 'accessoire . 

; Decalage par rapport a la base de 

; 1'enreQlstrement d'ur.e fenetre. 

i Numero de reference des fenfires type •■Dialog-. 

; Adresse relative (reglstre A51 du "oris tnoyen". 



: En-t&to du driver (voir "Lucy in tho SXy with DS joondp'. nuaoro 19 do pom's), f ■ ■■ ■■ 



PC 
OC.fi 

( K2VEM . L 
MOVE. I 



$400, 0, 0. O 

OU : £ c - .last*, Ou . ci I UI e - Base, Ouvet tut K-M*ae 
ouver Lure-Base, Ouverture-Base 
'ACCJPW '5' 



A1~A4,~(SPI : Sauvegarde les zeglstres d'adresse Al, A2, A3 

.- et A4 au sonnet tfe la pile. 
A1.A4 : Cople du reglstre Al dans le reglstre A4. 



; Le "Finder" autorise la destruction des fichiers par 1 ' Intermedial re de la corbeille. ce Qui 

j rand I'acc+ssolr* inutile- loraque 1-e "Finder" rourae. De piu*. le "Fifid*r" n« rernnnair pa* 

/ la destruction d'un fichier si ella n'est pas effoctuec P* r 1* vole normal e>, co qui pout 

, provoqucc ae -* prablc=:es (appel d'un fichier reconnu pa: le Tinder", bien que vanant d'etre 

, detrult par 1 'accessoire) . II es: done prudent de s'assurer que l'application or. cours n'est 

; pas le "finder". Si tel est le cas, une tentative WouvaiLure de 1 'accvssoltv sa Ltadvti yn 

: un "Sip" ou. si le volume est A zero, par une inversion video ae la barre des menus. Notons 

: enfln que le "Finder" reconnalt la destruction d'un (ou de plusleurs) tichler lorsque 1'on 

; reVlent de l'application depuis laquelle I'&CCeSSOlre A ite Utilise. 



LEA 



LEA 



FlnaeiName.AO ; L'adresse oO l'on trouve le nom du "Finder" est 

: placee dans AO. 
CurApNaoe. Al : L'adresse ou l'on trouve le nom de 

.* 1 'application en cours est placee dans Al . 
(A0)*,D1 ; Le> prettier nrtet r-nn* f pnf 1 *> nnmhrm rlr* 

canct&ros di/ic le nom du "Finder" - 
(A1)*,D1 .- II est compare at# norabro dc ojMotires dins lo 

.- nom du 1 'application en cours. 
CK : SI les deux noms ant des lutiyueut s dlJTfvtentes, 

I l'application en cours n'est pas le "tlncer~, 
: et on passe & la suite des operations, 
t SI la longueur du nom de l'application en cours est egale a la longueur du noa du "Finder", 
; on execute une boucl e qui compare les caracteres des deux chalnes. Au stade actuel. 1 'octet 
: de polds falble de Dl contlent le nombre de caracteres, AO pointe sur le premier caractere 
t du nop du "Finder". Al pointe sur le premier caractAra du nom dm I **ppl1rat Inn *»n rotir». 



OF .0 



EXT 



sens 

BoucrleVerir GfpH.B 
DBNE 



01 



tl.Dl 

{AO)*, (Al)* 
Dl.BoucloVerlf 



iwt 1 1, - (SPi 

^SysBeep 

BRA Sortie 



; Le bit 7 de Dl cot oople dans lco blta B i IS. 

i Celt a pour effet dc mettrc A 1 'octet de 

, polds fort du jnoC dv pulda falble dv Ol, qui 

I seta uLllls6 comae index de boucle. 

; ui - nomore ae caracteres - 1. 

i On compare deux caracteres . 

; S'lls sont dlfferents, on sort de la boucle. 

: Slnon, on vj comparer les deux caract&res 

: sulvants, sauf si tous les caracteres ont ete 

; coaparis, auquel cas on sort ausst de la 

• boucle. 

.■ Sd tous les caracteros ont see comparts, en 

; trouve -1 dine Dl , cc qui aiqnifxc quo lea dcuji 

; chalnes sont identlques . 

I 31 nun, wt s suite dvs vputatlons . 

; L'application en cours est le "Finder". On eset 

: un "Sip" de 7/60 seconde et on retourne au 

; "Finder". 



Inversion video do la barre des menus. Elle restera en Inverse Jusqu'A ce gue l'utiUsa: 
cholsisse un fichier ou "clique" sur "Annuler" (ou "Cancel" I. La routine _FlashMenuBsr = 
utlllsee. On estplle soit le nunero du menu a fnv*»r.c«r (1 pnur la vpru "Ponntie", par " **~ 
soit poirr invttrenr trottt» \a haw*, comme e'est 2o cat lei. 



OK 



CLP (SPI 
FlashrtenuBai 



.- Deux octets 4 au jomoec de id pfie- 
.* Appel dc la routine. 



creation d'une renetre du type "bolte a cflaloyue" 



Les solutions retenues sont 
certainement discutables, en 
particulier la possibility de 
detruire h peu pres n'importe 
quoi, mais nous voulions un 
accessoire efficace qui n'oblige 
pas l'utilisateur a cliquer sur une 
serie de boutons "OK" ou 
"Annuler" pour parvenir a faire 
un peu de place sur une disquette. 



CLR.L -ISP) 

CLR.L - (SP) 

PEA RcctiftQleF 

CLP.L -ISPl 

M7UB IsiOQ.-fsPi 

AOVE IdBoxProc. - (SP) 

H3VEQ.L t J, 00 

rtOVE.L DO, - 

CLR - (SP) 

CLB. L - (*&) 
NevHindow 

HOVEA.L (SPI+.AQ 

MOVE. I AQ.dCtlttlndO»<A4) 

KJVE dCtlRefNum(A4) .Hi 

hXJVE.L AO.-(SP) 



4 octets pour retour du pointeur. 
Stockaqe de la fenetre dans le "heap-. 
Eaplle l'adresse des coordonnees Ce ; f 

FttnAt rt> «an* Tit re. 
.• Drapoau indlquant que la fenetre c;: 
Fenetre du type "bolte a dialogue". 

. srrrrrrrr <- it u*i>s ie teui*tce ce sccjw 
; etapiie -1 pour fenetre au premier 
; fas ae case "a'ecnappeiaent" . 
; PAS de procedure spcclale {fenitre :u 
; Creation de la nouvelle fenetre. 
f Deplle pointeur sur la fen€tre. pJabi 
,* Sauvegarde le pointeur dans le "OCE". 
ndovKlnd(AO) ; Indlque fenetre "systems' 
Enpile le DOlnteur sur la fenitre. 
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c 



3 



SeiFocL 

hjve.l aczininaow\A4/ , - fsf/ 
_ocginupaate 
CLR -(SPJ 
Text Font 

' move.l 05doo1 0, - (sp) 
_Movbto 

PEA 'Pour trouver Pom''s 

_DrauStrlng 

MOVE.L PS1D0910, -fSPl 
_MoveTo 

PEA le<s Hosgue* ou J 

_DrawStrlng 

MOVE.L tf3D0010, (SP} 
_MovcTo 

PEA 'Pqui suppr Imer tin flchler :' 

Drawstring 
move, l fS'uOOl 0, - (SP) 
_MoveTo 

PEA le select Jonner, cllquer sur 

^Drawstring 



; La renetre oevienc ie pore grapniqve courant. 
i vnpue ie pointeur sur la fenetre. 
; oeouc de oise a jour de Ja nouvelle fenetre. 
t Emplle identlflcateur de la police Chicago (0) . 
; Chicago devlent la police courante. 
; Deplace le "crayon" en 16 (coordonnie 
: verticals) et 13 (coordonnee horlxontale} . 

; L' Instruction PEA. lorsou'on 
I lui communique dlrectement une 

: chaTna da nir*rTtirm. nmptl* 
.- 1 ' adresso do la chains procadao 
i d'tui oatec lndlquant *a 
I longueur {Indispensable a is 
.* routine B _Drav3trlf>g" qui se 
; chargera de 1 'affichage de la 
; cnalnej. au moment de 
I 1* assemblage, la chalne et 
; 1 'octet lndlqvant sa longueur 
; sont places a la fin du code, 
Ouvrir ' ' 



33. 52. 24. 43 



PEA 

_Penp&% 
MOVE.L 
_J4av&Tn 
MOVK f. 
LlnoTo 



gray(A5) 



*$290010.-(SP) 



Afflchage de la "bcatlole" 



LLA 
LEA 

HOVE. i 
MOVE.L 
HOVEA.L 
ADDQ. L 
MOVE.L 
PEA 
PEA 
CLR 
CLR. I* 
Copy Bits 



ait Map, Ab 

DeC, A3 
A3, (A6J 
A6, - (SP) 

dCtimndow(A4),A6 
t2,AS 
A6. - (SPI 
ffectSource 
If act Dost 
-(SPJ 
~(3F) 



; Le teqlstte AS polnte sur les variable globales 

; parmi lesquelles on trouve la definition des 

: "grists" . Tj> "grls mnyen" *e trauve £ ? 4 a dress* 
l pnlntee par A5, mains 24. 

Trace une llgne polntllloe ontrc i j pcsttlcn 
t courante du crayon et lee ooordonn&es Indiqu&cc 



Adresse de Ja structure "BltHap" dans A6. 
Adresse de la definition du dessln dans A3. 
Adresse de la definition dans la structure. 
Emplle 1 'adresse de la structure "BltMap" . 
Le pointeur sur la fenetre est pJace dans A6. 
Aloute 2 au pointeur pour "flitKap" fene^cre. 
Adresse du "BltMap" de la fen&tre dans A6. 

E(npfl» ? 'atlroKKA du mr-r angle smirr-0 
Empllo 1 ' adresse du rectanoie destination. 
TransfcrC claaslque (PENMODE O) . 

; Pds masque. 

.- Arritfiaye. 



MOVE. L QCZlUlItdOHiAA) , - (SP) 
_Endupdate 



Emplle le pointeur sur 1a fenetre. 
Fin de mise a Jour de la fenetre. 
Appel et afflchatje de la fenGtce standard de selection des flchlers. Pour flDDcier Ja 
routine, employee lcl de la manlere la plus simple. 11 faut empller. dans 1 'ordre : 

- la pnvtttnn hnrtrnnff}* rio 1'amgJo vnpArlwr qaitnho da ia fan&t rit (7 nnettts) r 

- la pn<ltlnn vartlrali* rit> \'ar\Q\i* cirpAri^ur gatichm rim la ftnAtrn (? nnhets) : 

fpoalt Ions donneos en coordonnaaa globaloa} 
4 octets a (jamais utllls&a) / 

- uii Ltvliitcuz sui uiie pujv&duiv Ue flltiage des ficiiieis fnon utlliai) . 

- nomore de types indiquant les fichlers i afficher, ou -I pour arricner toua les fichiecs 

(2 octets); 

- pointeur sur Ja iiste des types de flchler, ov si zone precedent e - -J." 

- pointeur en cas d'utlllsatlon d'une fenetre pcrsonnallsGe, slnon: 

- adresse d"un tampon de 72 octets utills4 par la routine pour le retour des Informations 

(nom du fichlec, numero de re/erence du voluae...); 

- seiecteur de routine (2 octets), 2 pour notre accessolre. 



MOVE.L 

CLR.L 

CLP..L 

MOVE 

CLR.L 

CLP.Z, 

PEA 

HOVE 

_Pack3 

LEA 
1ST 
BEQ.S 

rut 

CLR.L 
LEA 

MOVE.L 

M7VE 

MUVE.ti 

_Delete 

tST 

BEQ.S 



fS00280014,-(SP) 

-(SP) 

-(SP) 

f~l , - (SP) 

-(St) 

-(SP) 

Taaponxep 
fsiGete'lle.-lSPj 



TamponRep, Al 

rGood(Al) 

Annuler 



: Coordonn&es. 

i 0. 

Pa * rln ft It rage . 

Toue lee flohieec. 
; raa de Hate de types, 
t rtrnGlte standard. 
; Adresse au tampon "Tampcnttep~ . 
; seiecteur. 
i Appel de la routine. 

; Adresse de base du tampon dans Al . 
I SI nuJ, J * uti Jisateur a "clioue" sur 
"Annuler"; retour a 1' application. 



TampnnTfl, Afl 
loComplotlon (AD) 
rNarae (A1),A2 

A3, tuFllcNaruc (AO) 
rvolujoe (Al ) , loVeie£Num(AO) 
rverslon (Al) , lotlleType (AU / 

DO 

Suite 



BoucleFlash 



Suite 



Kf/EQ I19.D3 

CLP - (SP) 

_Fl a shMen uBa r 

DBPA 03. BoucleFlash 

BPA.S Annular 



CLP.L 
CLP 



loCompletlon (AO) 
lovol Index 4 AO) 



: les routines^ 

.' utilisoe pour les 

i cntrcco/ sort les 

I out etc) decrltes 

; dans les ntweros 

;li ('catalogue sur 

; Iasprlmante" , "BSAVE 

i et BLOAD avec le 

; Basic Microsoft") et 

: IS ('Modifications 

l des Informations 

: pour le "Finder"') de 

: Pom's. 

TST DO apri'S 
i Delete peroet de 

I sjvoJr si le flchler 

; e-st en cours 

i d' utilisation. 



Nous ne nous &endrons pas sur 
son fonctionnement, le source 
(aussi present sur la disquette 21) 

ctant gcncrcuscmcnt commcntc. 





MacAstuces 

Tons les fichiers crees sur uite 
disquette, meme s'ils sont mis % 
la poubelle et si celle-ci est videe, 
laissent une trace sur votre 
disqucttc ct occupent encore de la 
place. Pour y remedier : 

• Initialisez une disquette, 

• Recopiez tous les fichiers sur 
cette nouvelle disquette. Vous 
aurez toujours vos fichiers, 
rnais ccrtaincmcnt avee de 
precieux Ko supplamentaires, 

Apr^s de norabreuses operations 
de destruction de fichiers, on a 
done interet a "rafraichir" la 
disquette en recopiant tous ces 
fichiers sur unc nouvelle 
disquette, quitte a recopier ensuite 
celle-ci enti&reraent sur 1'original 
afin de garder la belle etiquette 
qu'on y avait collee. . . 



Un bug 
dans la 
LaserWriter ! 



"PostScript error" suivi du 
message peu reconfortant 
"Document OK, but cannot be 
prmted ,, : voiiJ ce qui arrive 
iorsqu'aa tente d^imprinier sur la 
Laser Writer un document dont le 
nom comporte une paremhfese 
fermante. 

Merci k Bruno Rives qui nous a 
aides daas 1'analyse, pas 
evidente, de ce bug ! 
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Erreur 



LEA rName (Al) ,A? 

MOVE.L A2, xoVNPcr (AO/ 

CetVolInfo 
_Qf£Line 

Dl,ioVFe£Num (AO) 



MOVE 
MOVE 
JtountVol 
MUVH 
TST 
BNE.S 



§2, Dl 

ioResult (AO) 
Erz&ur 



Si 1 'util isateur cfe 
I'accessoire tente de 
detruire un Fichier 
ouvert, on inverse 
rapidement, et 20 
fois de suite, la 
barre des menus. 
On retourne ensuite a 
1 'application . 



Avant de zevenir a 1' application, on inverse une derniere fcis la barre 
des menus, a fin gu'clle nc rcstc pas cn caractcrcs bl3ncs sur fond noir. 



Ann uier 



Sortie 



MOVE . L dCtl Hi ndov (A4i , - (SP) 
CLR.L dCtlHindow(A4) 
DisposWindow 

CLR - (SP) 

FlashMenuBar 



MOVEM.L 

CLR 

RTS 



(SP)+,A1-A4 
DO 




•-> Corbeille. R 

Corbeille. Rsrc 

TYPE DRVR = PROC 
•-> Corbeille ,30 
Corbeille 



•-> Corbeille.Job 

Asm •-> Corbeille .Asm 

Link •-> Corbeille .Link 
Rmaker Corbeille . R 



Exec Edi t 
Exec Edi t 
Exec Edi t 



i Tampons et contantcs . 

Tampon TO DCB.B 

TamponRep DCB 

RectanqleF DC 
; Structure "BitMap". 

Bi tMap DC. L 

OLBitMap DC 

Rect Source DC 



ioVOElSize, ,• 64 octets pour entrees/sorties. 

36,0 j 72 octets pour _Pack3. 

198, 20,281,368 ; Coordonnees (globales/ fenfire . 



/ Stockage adresse de la definition, 
t Nombre d'octets par ligne. 
j Coordonnees du rectangle source. 



RectDesi 



Det 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 

S0008, 
S000C, 
$0000, 
SQOQO, 
50562, 
S0000, 
$0362, 
SRB8Q, 
S083O, 
$0000, 
$C00A r 
50101, 
S1C0B, 




8 

0, 0, 54, 64 

18, 280, 72,344 i Coordonnees rectangle destination 



-> Corbeille.Link 

[ 

•-> Corbeille .Eel 
$ 



$0002, 
$0000, 
$0000, 
$001E, 
SFFFO, 
SOD 90, 
$0001, 
S703C, 

56GA 7, 

$0C02, 
S1C05, 
$0004, 
$1102, 



$0000, 
$0000, 
$0002, 
5404F, 
SD40A, 
$2498, 
SA832, 
SD6A6, 
$0202, 
$8015, 
some, 

$FF£4, 
$0703, 



$0000, 
$0005, 
$7FC8, 
$0000, 
$0280, 
$6C00, 
$2A80, 
5Q1C2, 
$9F89, 
$0328, 
$8027, 
$0005, 
S8A19, 



50004, 
S3F94, 
$0000, 
$0000, 
$0AD4, 
$5540, 
502A2, 
$8889, 
SOAOC, 
50002, 
$8008, 
S00OB, 
$6000, 



30,004, 

S0O00, 
$0000, 

w t 6a, 

SFFE5, 

soecA, 

$4445, 
$3030, 
50000, 
59604, 
S0EQ1. 
50004, 
52080, 



50000, 
$0000, 
$0004, 
S404A, 
S6A09, 
$4924, 
5DQ32, 
SD6A3, 
S0A02, 
501)03, 
$001 8, 
59F24, 
$00C2, 



$0000, 
50002, 
SB&A4, 
SCO00, 
$2440, 
$5415, 
$0008, 

$0182, 

5E069, 
50182, 
SE0E3, 
$0004, 
$6061, 



$000€, 
$C068, 
$0000, 
5FC0O, 
S1580, 
$0015, 
$01 62, 
$8889, 
S04A8, 
52A88, 
S000A, 
$0003, 
S3FFF, 



5000C, 
$0000, 

snonn, 

S02DF, 
$3F80, 
$0544, 
58889, 
$3230, 
$0002, 
53005, 
$0705, 
S0OE2, 
SC07F, 



$0000, 
$0000, 
$0004, 
5209F, 
$3512, 
$9002, 
5B132, 
SD6A1, 
SA403, 
S000B, 
$0009, 
S60C9, 
$FF83, 



$0000, 
$0001, 
STF04, 
$7001, 
$4120, 
SA940, 
$0018, 

$8182, 

$8519, 
500C2, 
SFFF2, 
SE002, 
$FFFF 



$0006, 
5001 0, 
50000, 
54A0O, 
$2B00, 
$0000, 
S11A2, 

$8889, 

$0402, 
54048, 
$0008, 
$9015, 



$0O0C, 

suuou, 
soooo, 

502D3, 
$0000, 
$52A3, 
58BB9, 

$1830, 

SAAA8, 
$6008, 
$0381, 
$0317, 



$0000, 

suooo, 

$0004, 
SDF70, 
S1AA4, 
SFFFF, 
$5432, 
$D6A0, 
$0402, 
$0802, 
$0009, 
S51SD, 



$0000, 
$0002, 

$2084, 

$A802, 
$9210, 
S081C, 
$67C3, 
$8302, 
$204$, 
$0064, 
$FFF2, 
$1802, 



$0006 
$0008 
$0000 
$3100 
$JbOU 
$0000 
$8542 
$8889 

sn?nn 

$802-1 
$0008 
$2045 



Dlsquette Macintosh numero 21 

Outre les fichiers et programmes listes dans ce numero, \/ous 
irouverez sur cetie dlsquette les polices TimesBold (10, 12, 14, 
18 et 24 points), TimesBoldltalic (10, 12, 14, 18 et 24 points), 
Timesltalic (10, 12, 14, 18 et 24 points), HelveticaBold (10, 
12, 14, 18 et 24 points), HelveticaBoldOblique (10, 12, 14, 18 
et 24 points), HelveticaOblique (10, 12, 14 et 18 points), 
CourierBold (10 et 12 points), CourlerBoldOblique (10 et 12 
points) et CourierOblique (10 et 12 points). 

Ces polices remplacent avantageusement. lorsqu'elle sont 
employees en gras ou en italique (ou les deux), celles de 
I'impr/mante LaserWriter. Les caracteres affiches a I'ecran sont 
beaucoup plus iisibles et {'impression (sur ImageWriter) plus 
fidele. 



Exemple en TimesBold 12 : 

Le programme source etant 
largement comments, nous 
nous bornerons a indiquer ici 
les caracteristiques princi- 
pals du deroulement de la 
routine. 

Exemple en Times gras 12 : 

Le programme soiree etut 
largemeflt commeate, now 
fioni bornerons i indiquer 
ici les carmctcrisiiqves 
priAcipsJei da d&raadenefit 
deltrouucc 
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Cet article n'enrichira 
guere votre Basic, qui 
dispose deja d'instruc- 
tions (telles que 
WINDOW, EDIT FIELD ou 
EDIT$) pour vous permettre la 
saisie de variables via fenetres el 
gestion de texte. 

En revanche, peut-etre vous 
apportera-t-il quelques eclaircis- 
sements sur la fa^on dont 
s'operent la manipulation des 
fenetres et l'edition de textes au 
niveau du syst&me, et done sur le 
type de routines utilisees par le 
Basic. 

Les operations & realiser dans le 
cadre du programme en 
assembleur liste plus loin sont les 
suivantes : 

• Ouverture d'une fenStre dont 
on donne les limites, via un 

tableau du Basic. 

• Ouverture d'un "texte 
editable", dont on indique de 
merne les limites "visibles" et 
les dimensions. 

• Saisie de texte. 

• Utilisation de la souris pour 
deplacer le curseur, placer un 
point d'insertion de texte, ou 
selectionner un "morceau" de 
texte en vue de l'ef facer. 

• Retour au Basic lors de la 
frappe de la touche RETURN 
ou de la touche "commande" 
(et ce quelle que soit la position 
du curseur a cet instant). 

• Recuperation du texte dans une 
variable chaine de caracteres, 
dans la limite d'un nombre 
maximum de caracteres indique 
au depart par la longueur de la 
chaine. 

A partir du Basic, cette routine 
s'appelle de maniere classique, 
avec passage en parametre du 



point cur sur lc descriptcur dc la 
chame utilisee pour le transfert 
(voir progranime-exemple). 

Principes de 
fonctionnement 

Le programme source etant 
largement commente, nous nous 
bornerons a indiquer ici les 
caracteristiques principales du 
deroulement de la routine. 

Variables de travail 

• Lorsque se produit un 
"evenement" (enfoncement d'une 
touche, deplacement de la souris, 
clic...), il se caracterise par un 
certain nombre d'informations : 
type de l'evenement, contenu, 
resukal, type de touche ou de 
"clic"... Ces informations sont 
retournees dans une zone de 
stockage dont l'adrcsse doit etrc 
indiquee a la routine chargee de 
saisir les evenements 
(GetNextEvent). La zone 
baptisee Evenement est utilisee 
pour cela. 

• Un texte editable comporte une 
zone de visibilite (ViewRect dans 
notrc cxcmplc,) et unc zone de 
stockage qui lui est au moins 
egale (DestReci). 

• FenetreStockage est reservee 
pour le stockage de l'ensemble 
des informations necessaires a la 
gestion d'une fenctre par le 
systeme. 

Principales 
routines utilisees 

• NewWindow, comme son nom 
l'indique, pcrmet d'ouvrir une 



nouvelle fenetre dont on indique 
les parametres, en particulier les 
dimensions, le type et le titre 
eventual... Cette fonction 
retourne un pointeur sur la 
fenetre, qui permettra ensuite 
d'appeler les fonctions de gestion 
des fenetres, par exemple SetPort 
qui specifie le "port" 
d'entree/sortie k retenir par les 
autres routines. 

• TENew ouvre un enregis- 
tremem "texte 6<Utabte", dont on 
indique au prealable les zones de 
visibilite et de stockage. Cette 
fonction retourne un "Handle" 
(e'est-a-dire un pointeur sur 
l'adrcsse d'un pointeur) sur 
l'enregistrement texte ainsi 
constitu^ "Handle" qui permettra 
l'appel des autres routines 
d'edition de texte. TE Activate 
active l'edition de texte, tandis 
que TEIdle fait apparaitre le 
curseur et determine ainsi le point 
d'insertion du texte. 

• TEGctTcxt, moyennant Indi- 
cation du "Handle" sur 
l'enregistrement texte, retourne 
un "Handle" sur les caracteres qui 
le constituent, autorisant 
finalement I'accfes au contenu 
merae du texte, en termes de 
codes ASCII. A noterpar ailleurs 
que les deux octets qui se 
trouvent a $3C et $3D du debut 
de l'enregistrement texte 
contiennent la longueur du texte, 
et done le nombre de caracteres. 

• TEKey assure pour sa part 
l'edition dun caractfere, soit 
affichage et stockage dans le texte 
(il faut lui passer en parametres, 
via la pile, le code ASCII du 
caractere en question et le 
"Handle" sur le texte concerne). 
TEClick prend en charge les 
"clics" dans le texte (insertion du 
curseur ou selection d'une zone). 
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• GtobalToLocal convertit les 
coordonnees de la souris 
retournees par GetNextEvent, 
calculees par rapport k l'ecran 



dans son ensemble, dans le 
systeme d'axes determine par la 
fenetre active, afin d'assurer 
l'insertion a 1'endroit voulu. 



• Les autres routines, relatives b 
la manipulation des fenetres, 
parlent d'elles-mSmes... 



Programme de , (3 
demonstration "v— x 

*> 

DEFINT A-Z 

VV$=SPACE$(256) 

DIM C(323),d$(4) 

DATA 0.0.0.0.0.0.0.0.0.0 

' Rectangles de la fenetre et du texte 

DATA 50,40, 70,200,3,2, 18, 150,3,2, 18, 150 

' Debut du code de la routine 

DATA 8H4E56,0,&H42A7,&HA924,8H261F 

DATA &H42A7,8H487A,&HFEBA.8H487A 

DATA &HFE9E,&H42A7.8H1F3C,->,&H3F3C, 1 

DATA &H2F3C,- 1,-1,&H1F3C,0,&H2F3C,0,0 

DATA &HA913,&H2657,&HA873,&H42A7,&H487A 

DATA &HFE88,8H487A,&HFE7C,&HA9D2 

DATA &H2457,8HA9D8,&H2F0A,&HA9DA 

DA TA &H42B7,&H3F3C,&H0FFF.&H487A.&Hht4C 

DATA &HA970,SH301F,&H67EC,SH6046 I &H2FOA 

DATA &HA9CB,&H285F,&H2254,&H2852,&H322C 

DATA &H003C,8H206F,8,8H1828, 1.8H2028.1 

DATA SH0280.SH0OFF, - 1 ,SH2840,&H7000 

DA TA & HB04 1.&H6 700, 1 0.SH5240.& H 1-8D9 

DATA &HB800.8H86F2.&H2F0A.&HA9CD 

DATA SH2F0B.8HA92D,&H2F03,SHA9 1F.&H2F03 

DATA 8HA873,8H4E5E,&H4E75,8H383A 

DATA 8HFE08.8H303A.&HFDF6.&HOC40, 1 

DATA &H6700.&H0032,&HOC40,3,&H6700, 12 

DATA &H0C40,5,&H6700,4,&H6682,&H0804,8 

DATA &H6692.&H3F3A.&HFDD6.&H301F.&H0C00 

DATA 13,8H6786,8H3F3A,8HFDCA,&H2F0A 

DATA &HA9DC,&H4EFA,&HFF66,&H4267 

DATA &H2F3A.&HFDC2.&H487A.&HFDC4 

DATA 8HA92C,8H301F,8HOC40,3,8HG600 



DA TA &HFF50.&H42A 7.&HA924.8H20 1F.&HB08B 
DATA &H6700. 12.&H2F3A.&HFDA8.&HA91F 
DATA 8H4EFA,SHFF3A,&H487A,8HFD98 
DATA 8HA871 ,&H2F3A,8HFD92,8H103C,0 
DATA 8H1F00,&H2F0A,&HA9D4,8H4EFA,aHFF22 
FOR i=0 TO 21 .READ c(i):NEXT 
' zone de stockage de la fenetre 
FOR 1=22 TO 1 77:c(i)=0:NEXT 
FORi-178 TO 323.READ c(i):NEXT:DE=178 
10 CLS:V$=LEFT$(vv$, 15):A!=VARPTR(c(DE)) 
A! VARPTR(V$) 

d$(1)=v$ ' v$ comporte 15 caracteres, dont des 

' blancs a la fin si necessaire 

' deplacement de la fenetre 

c(10)=80:c(1 1)=40:c(12)=100:c(13)=200 

v$=LEFT$(vv$. 15):A!= VARPTR(cfDE)) 

A! VARPTR(V$) 

d$(2)=v$ 

' deplacement et changement de dimension 

C(W)=100:c(11)=20:c(12)^250:c(13)^450:c(14)^3 

c(15)=4:c(16)=130:c(17)=420:c(18)=3:c(19)=4 

c(20)=130:c(21)=420 

V$=LEFT$(vv$,255):A!=VARPTR(c(DE)) 

Al VARPTR(V$) 

d$(3)=v$ 

c(10)=80:c(1 1)=240:c(12)= 100:c( 13)=400:c( 15) =2 

c(16)- 18:c(1 7)- 150:c(19)=2:c(20)*= 18:c(21)= 150 

v$=LEFT$(vv$.15):A!=VARPTR(c(DE)) 

A! VARPTR(V$) 

d$(4)=v$ 

CLS.FOR i=1 TO 4 .PRINT d$(i) 
PRINT L EN(d$( i) ) :NEXT 
INPUT z$ 

IFz$="~ THEN c(10)=5Q:c(1 1)=40:c(12)=70:c(13) 
=200:GOTO 10 



Source de la routine en langage machine 



. Trap 


Newklindow 


SA913 


. Trap 


_ Set Port 


$A8 73 


. Trap 


_TEIdlc 


$A9DA 


.Trap 


GetNextEvent 


SA97D 


. Trap 


_ TENew 


$A9D2 


.Trap 


_TEActivate 


$A9D8 


.Trap 


_TEGetText 


$A9CB 


.Trap 


_TEDispose 


SA9CD 


.Trap 


JTEKey 


$A9DC 


.Trap 


_FindWindow 


SA92C 


. Trap 


_FrontWindow 


SA924 


. Trap 


_SeleclWindow 


SA91F 


. Trap 


_ Gl oba 1 Tu Lv ud 1 


$A871 


.Trap 


_TEClick 




.Trap 


__Clo3efii ntiow 


$A92D 
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Evcncmcnt 


/ Caracteristiques de 


1 


evenement ( 










Quoi ; 


DC 





t 


Type , j 1 


nnnn 


U U L» f 






Me^sago £ 


DC.L 





r 


Information complement: a ire v- — 




oooo 






yuand; 


DC.L 







Moment / 


0000 


0000 






Point: 


DC.L 





/ 


Coordonnees Sovris ^> 










Modi fie: 


DC 


o 


r 


Etat touche et bouton 


0000 


0000 






WFenGtro: 


DC.L 





e 


Resultat de recherche de fenetre 


0032 


0028 


004 € 


0OC8 


Rectangle 


DC 


50, 40, 70, 200 


/ 


Rect&ngle de 2d fenetre 






(Jul z 


0U96 


ViewRect 


DC 


3,2,18,150 




Rectangle de visibilite dv texte 




nnn ? 

Li \J\JJl 


nn 7 o 






DC 


3,2,13,150 




Limites du texte 


xxxx 


XXX X 


XXX X 




f enez-reocoocage 


DCB 


$9C,0 














Wodiriefleg 


EQU 


D4 




Bits de modif. par GetNext Event 










Text Hi? eg 


EQU 


A2 


j 


"Handle" sur le texte 










Fen etrePfieg- 


EQU 


A3 


; 


"Handle" sur la fenetre 










CMDKEY 


EQU 


8 


; 


Signals usage touche "commande" 




0000 








LINK 


A6,§0 






/ 










CLR.L 


-(SP) 
















_FrontWindow 
















MQVE.L 


(SP) i , D3 


r 


Sauvejarde Uandie fenetre lnitiale 










MAJFenetre 




















CLR.L 


~(SP) 


r 


Ou vert ure d'une nouvelle fenetre 


487 A 


FEBA 








PEA 


Fenet reSt ockage 






FEDE 








PEA 


Rectangle 






/T ? £ 7 
Hen' 










CLR.L- (SP) 


1 


Sdns titre 


1 77* O 

ir jC- 


r r 1 1 








MOVE.B 


#-l,-(SP) 




Visible de suite 


JT JO 


nnn i 








MOVE 


U,-(5P) 




De type "ooite a dialogue" 


2F3C 


FFFF 


FFFF 






MQVE.L 


0-1,- (SP) 


r 


DevanL LouLes les autres 


If JC 


UUvU 








MOVE.B 


#Q,-(SP) 


r 


Sans "carre de fuite" 


2F3C 


0000 


0000 






MQVE.L 


00, - (SB) 






A913 










NewWi ndnw 






/dj r 










MQVE.L 


(SP) , FenetrePReg 




ft <"> "7 O 










_SetPort 


f 


wouve»I2e re/ie'tre — port entree/so . 










MAJTexLEdlt 










47fl / 










CLR.L 


- (SP) 


f 


Ou verture d'un texte editable 


ho In 


r Coo 








PEA 


DestRect 






4 97 A 


FE7C 








PEA 


Vi ewRect 






A9D2 










_TENew 








J / 










MOVE.L 


(SP) , TextHReg 




Dont on recupore lo Handle 


A9D8 










TEActivate 


f 


Et que l'on active 










Boucle 




















MUVE. L 


Text ti Reg, - (SP) 
















JTEldle 




1 


f t~" rr / i n n rtf n t~ 












CLR 


-(SP) 






3F3C 


OFFF 








MOVE 


if$0FFF,-(SP) 


f. 




487 A 


FB4C 








PEA 


F.vp moment 






A9?0 










_Get Next Event 




evenement ? 


301F 










W/v 


(SP) DO 






67 EC 








BEQ 


Boucle 


f 


/von . . . /ittenare. . . 


60 46 








BRA.S 


Trait ev 


1 


Oui . . . Le traitor 










Sortie 










PFOA 










MOVE.L 


Text H Reg, - (SP) 


f 


12 faut rocupcrcr 2c tcxtc 


A9CB 










TEGet Text 


r 


Avant retour au Basic 


285F 










MOVEA.L 


(SP) +,A4 


/ 


Pointeur/handle sur le texte 












MOVEA.L 


(A4),A1 


r 


Al=adresse des caracteres 


2852 










MOVEA.L 


(A2),A4 




A4*adr. de l'enregistrement TyxLe 


32 2C 


O03C 








MOVE 


$3C(A4),D1 


i 


Longueur du texte 


20 GE 


0008 








MOVEA.L 


3 (A6),A0 


* 


Recupere le descripteur de chalne 


1828 


0001 








MOVE.B 


1 (A0)„D4 




Longueur de la chalne (< 255) 


2028 


0001 








MOVE.L 


1 (AO) , DO 


f 


Adresse de la chalne 


0280 


OOFF 


FFFF 






ANDI.L 


#$00FFFFFF. DO 


f 


Convert ie en J mot long 


2840 










MOVEA.L 


D0,A4 






70 00 










MOVEQ 


SO, DO 


r 


D0=nombre de caracteres copies 
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Compare 








< \3 

Autant de caractcrcs que 1 c r~~> ' 


B041 




CMP 


D1,D0 


/ 


67 00 00 OA 




BEG 


Fini 




texte en contient ? C^— =g 


5240 




ADDQ 


41, DO 




1SD9 




MOW:. R 


(Al) +, (A4) + 


* 


Transfert "dans" la chaine 


B800 




CMP. 3 


D0,D4 




Autdiit de caracteres que la 


66 F2 


Finl 




Cnmpa re 


i 


chaine peut en contenir ? 


2F0A 




MOVE. L 


Text HReg r - ( SP ) 






A9CD 




_TEDispose 


; 


Ke/icJ pierce du texte la machine 


2F0B 




MOVE. 1 


Ah-(SP) 






A92V 




Closewindow 


t 


ferine noLre FeiiGLze 


2F03 




MOVE.L 


D3,-(SP) 






A91F 




selectwindow 


• 


Remet en activite FeneLre initials 


2F03 




MOVE. L 


D3. - (SP) 






A873 




jseePort 






4E5E 




UNLK 


A6 


* 


Retour au Basic 


4E/5 


Traitev 


RTS 








3U3A FE08 




MilVF 


Modtfie, Modi CieReg 


303A FDF6 




MOVE 


Quoi , DO 


• 


QvqI typR d'eveneme/it 


0C40 0001 






01, DO 




Clic 


67 00 00 32 






Souris 






0C4Q 0003 




CMP1 


93, DO 


r 


Touche 


67 00 00 OC 




df: 


Touche- 






0C40 000b 




CMPI 


§5, DO 


r 


Auto-repetiL iun d'une Louche 


67 00 00 04 




BEQ 


Touche 






66 82 


Touche 


BtJE 


Boucie 


r 


On ne prend pas les autres 


0804 0008 




BTST 


9CmdKey,ModifieReg ; Touche commande ? 


66 92 




BNE 


Sort ie 




Si oui ■» sortir 


3F3A FDD 6 




.MOVE 


Messaged, -(SP) 




301F 




MOVE 


(SP) +, DO 






OCOO OOOD 




CMPI.B 


913,00 


i 


Touche RETURN ? 


67 86 




BEQ 


Sortie 






3F3A FDCA 




MOVE 


MG$saqe+2,-(SP) 


r Sinon, taire editer le caractere 


2F0A 




MOVE. L 


Text lIReg, ~ (SP) 






A9DC 




_ TEKey 








4EFA FF66 


Sour is 


BRA 


Boucie 






4267 




CLR 


-iSP) 






2F3A FDC2 




MOVE.L 


Point. -(SP) 






487 A FDC4 




PEA 


WFenetre 






A92C 




FindWi nciow 


! 


Ou s'est prodvit le clic ? 


301 F 




MOVE 


(SP) *,D0 






0C40 0003 




CMPI 


9% no 


• 


Dans la zone "contenu" ? 


66 00 FF50 




£UV£ 


Boucie 






42A7 




CLR.L 


-(SP) 






A924 




FrontWi/)dow 


r 


Si oui, notre fenetre est-olle 


201 F 




MOVE. L 


(SP) +, DO 






B09B 




CMP.L 


FenetrePReg, DO 


f 


toujour s active et "au—dessus" 


67 00 00 OC 




BEQ 


Dsuite 






2F3A FDA8 




MOVE.L 


WFenetre,-(SP) 




Si non, la re-act iver et attendre 


A91F 




_Select Window 




un autre evenement 


4EFA FF3A 


Dsuite 


DBA 


Boucie 






4 87 A FD98 




PEA Point 






A871 




_G1 obalToLocal 




Convertit dans le sysr.Rme de 


2F3A FD92 




MOVE.L 


Point, - (SP) 


t 


coordonnees de la fen&tre 


103C 0000 




MOVE. B 


90, DO 






1FO0 




MOVE. 3 


DO, - (SP) 


r 


Pas de clic "majuscule" 


2F0A 




MOW.. J. 


Tf>xrHRf>g,-(SP) 






A9D4 




_ TECl 1 ck 


r 


Fait "editer" le clic 


4F.FA FF72 




BRA Boucie 
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B. Tomeno 



La 36eme piste 

...ou 528 secteurs disponibles 



M "Tut disquette "norm ale", 
m I formatee sous DOS 3.3, 
V J coraporte, comme 
chacun sait, 35 pistes de 
16 secteurs, soit 560 secteurs 
dont seulement 496 sont 
disponibles pour I'enregistremenl 
des programmes puisque le DOS 
se reserve 48 secteurs (pistes 
00,01,02) et qu'il en alloue 
encore 16 pour le stockage du 
catalogue ct dc la VTOC (piste 
17) : voir schema ci joint. 

Or le DOS ne se sert reellement 
que dc 37 des 48 secteurs qu'il se 
reserve (il utilise la totalite des 
pistes 00 et 01, mais seulement 5 
secteurs de la 02, a savoir les 
secteurs 00 a 04) . De meme 
CATALOG et VTOC laissent 
inoccupes 5 des 16 secteurs de la 
piste 17, a savoir les secteurs 01 a 
05. Recuperer les 1 1 secteurs 
litres de la 02 et les 5 de la 17, 
e'est une piste gagnee ! 



Le formatage en 35 pistes n'est 
qu'une habitude; en fait il y a sur 
une disquette de quoi tracer une 
36eme piste que 95% des lecteurs 
sont capables de lire. On peut 
ainsi encore gagner 1 6 secteurs et 
on arrive a 496 + 16 + 16 = 528 
secteurs-utilisateurs. 



La pratique 



Tout d'abord il faut se munir d'un 
editeur de secteurs genre 
DISK-FIX mais tout autre peut 
convenir (COPY 11+ 4.3, 
NIBBLE AWAYS..,) y compris 
ceux publics dans Pom's (voir 
Mobby disk dans n°15 ou Accds 
direct dans le n'l 6). 

La manoeuvre se fait en 5 temps 
(les 4 premiers modifient la 
VTOC, secteur 00 de la piste 17). 



1 Initialiser une disquette avec 
votre Hello prefere... mais 
apres 6tre passe en moniteur (Call 
-151) et avoir remplace la valeur 
de $BEFE (normalement $23) par 
$24! Ceci va entraincr un 
formattage sur 36 pistes lors de 
l'initialisation. Charger votre 
editeur de secteurs et lire le 
secteur 00 de la piste $n (17). 
Sur la 7eme ligne (si votre editeur 
affiche des lignes de 8 octets, ce 
qui est le cas habiruel sauf pour 
NIBBLE AWAYS) l'octet $35 (le 
53eme du secteur, le 5eme de la 
ligne 30) doit etre a $24, et non 
pas a $23 comme sur une 
disquette normale. (Une autre 
possibility pour faire cette 
premiere manipulation est dc 
formatter directement une 
disquette sur $24 pistes avec un 
utilitaire Ad Hoc puis de 
remplacer $23 par $24 avec votre 
editeur de secteurs sur le secteur 



HOOOO 
HOOOO 

itoooo 
i«oooo 

HOOOO 

iQOOOO 
I0OOOO 
iSOOOO 
iQOOOO 
'©OOOO 
iQOOOO 
iQOOOO 
'©OOOO 
'0OOOO 
©OOOO 
©OOOO 



OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 



OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 



OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
QOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 
OOO 



OOOO 

oooo 

OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 



c£o"c 



Vtoa 



oooooo 
©oooooo 
©oooooo 
©oooooo 
©oooooo 
©oooooo 

0OOOOOO 
©OOOOOO 
0OOOOOO 
©OOOOOO 

©oooooo 

0000000 
0OOOOOO 

©oooooo 
©oooooo 
©oooooo 



ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



oooooo® 
oooooo© 
oooooo© 
oooooo© 
oooooo© 
oooooo© 
oooooo© 
oooooo© 
ooooooo 
oooooo© 
oooooo© 
oooooo© 
oooooo© 
oooooo© 
oooooo© 
oooooo© 
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[Secteurs recuperables 
[ Catalog 
'_3 6e<ne piste 



Plan d'occupation des 
secteurs d'une disquette 
DOS 33 
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OOdela piste $11). 

2 Informer le DOS que cette 
36£me piste est inoccupee : 

toujours sur lc sccteur 00 de la 
piste $11 remplaceren ligne SCO 
les 56me et 6eme octets (00 00) 
par FF FF. 

3 Dire au DOS que les secteurs 
01 a 05 de la piste $11 sont 

libres. Toujours sur le meme 
secteur, lire en ligne $78 les Seme 
et 6eme octets, normalement h 00 
00, et les remplacer par 00 3E. 

4 Declarer que les 1 1 secteurs 
($5 a $0F) de la piste 02 sont 

disponibles. En ligne $40 du 
meme secteur remplacez les octets 
1 et 2 (00 00) par FF E0. 
Reecrivez alors le secteur 00 sur 
la disquette 

5 Le 5£me temps se fait en lisant 
le secteur $06 de la piste $11. 

Lire ce secteur et sur la lfere ligne 
($00), remplacer par 00 00 les 
octets 2 et 3 (normalement 1 1 05, 
ce qui indique au DOS de 



poursuivre le CATALOG sur la 
piste $11, secteur $05, au cas, 
bien improbable, ou le catalogue 
serait si fourni que les secteurs 
$06 a $0F ne lui suffiraient pas) : 
si le DOS veut poursuivre 
lecriture du catalogue sur les 
secteurs 01 £ 05 de la piste 17, il 
est ainsi informe que ceux ci ne 
sont pas disponibles. 

Reecrivez maintenant ce secteur 
06 sur la disquette. Voill vous 
avez gagne 36 secteurs soit 2 
pistes. 

Si vous faitcs la meme chose sur 
une disquette sans DOS (le cas 
des disquettes reservees au 
stockage des fichiers d'un tableur 

ou d'un traitement de texte par 
exemple, mais vous pouvcz vous 
les fabriquer vous meme avec 
DISK-FIX ou d'autres 
programmes permettant de 
supprimer le DOS) vous obtenez 
des disquettes de 564 
secteurs-utilisateur . 564 et non 
pas 576 comme le youdrait 



16*36, car il faut quand meme 
garder un peu de place pour 
Catalogue (10 secteurs), VTOC (1 
secteur) et message de BOOT 
eventuellement( secteur 00 de la 
piste 00). 

Evidemment pour copier une 
disquette ainsi batie il faut prendre 
un utilitaire capable de reconnaitre 
la piste 36 : le plus rapide semble 
etre encore " MUNCHER " 
(moins de 30 secondes !) tandis 
que Locksmith ou Crazy Copy le 
feront en quelques minutes 
(repondre $23 a la question "End 
track"). 



Encore une remarque : cette 
manoeuvre est aussi possible avec 
les DOS non standard (Z-DOS et 
compagnie) d'autant que certains 
d'entre cux sont encore plus 
courts que le DOS normal. 



Vos textes en direct de votre ordinateur 
a nos photocomposeuses 

Gain de temps et economie Les textes de vos articles, catalogues, 

annuaires ou brochures saisis sur 
votre micro-ordlnateur sont envoyes 
directement sur notre 
photocomposeuse 

Nous vous evitons ainsi, 
le cout et le temps de la saisie 
supplementaire que 
necessite le traitement 
traditionnel de la photocomposition 
avant (Impression des documents. 




Vous 



Nous 



[fl n 



J _ 



PHOTOCOMPOSITION - BUREAUTIQUE - TRANSMISSION DE DONNEES - GESTIQN OE FICHIERS - MATERIELS DE TRAITEMENT 

13 et 15, avenue du Petit-Parc - 94300 VINCENNES 



Si vous le desirez nous pouvons 
6galement nous charger 
impression et du brochage. 
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Yvan Koenig 



Un compatible 
in compatible ? 



Ce titre un peu provo- 
cateur retlete ma 
premiere reaction 
apres examen du kit 
de raise k niveau //c pour T Apple 
//e. On ne trouve en effet pas 
moins de 1094 octets diff£rents 
dans les ROM des adresses 
$D000 3 $FFFF qui regroupent 
l'inlerpreteur Applesoft et le 
moniteur. 

De plus, les ROM internes en 
$C100 sont totalement 
differentes. 

Finalement, les differences de 
codage n'induisent pas de tres 
gros problfemes de compatibility 
La plus grosse deception est due i 
la fonction LIST du moniteur qui, 
bien que leg&rement recodee, ne 

reconnait pas les nouvelles 

instructions du processeur 
65C02. 

On retrouve sur//e+ les fonctions 
de lecture/ecriture sur cassette qui 
avaient ete supprimees sur le //c. 

En revanche, les routines 
LORES80 du I/c qui permettent de 
manipuler la basse resolution sur 
80 colonnes n'existent pas sur le 
nouveau //e+. II aurail peul-etre 
ete preferable de les inclure, plutot 
qu'un Mini-Assembleur extrait du 
moniteur du tout premier Apple II 
qui, lui non plus, ne reconnait pas 
les nouveaux opcodes du 65C02. 

Certains petits details peuvent 
finir par agacer : certaines routines 
identiques (minMAJ, spLINPRT, 
EOL?, sbCH) ne sont pas 
implantees & la meme adresse. 
L'adresse $1F de la page zero 
n'est finalement exploitee que par 
l'ancien Apple //e. 

Loctet en $E006, qui valait 



toujours $00 sous Applesoft, 
contient un $C4 sur le //e+, ce qui 
provoque quelques plantages pour 
les programmes qui utilisaient cet 
octet comme test de reference 
(exemple David-DOS) : il vaut 
mieux desormais referencer 
l'adresse $E050. 

Sur le plan hardware, quelques 
probl£mes d'images graphiques 
"dechirees" peuvent survenir avec 
la ROM video du kit de mise J 
niveau founiie par Apple; si cela 
vous arrive faites-en une copie sur 
une EPROM rapide. De m£me, 
Apple USA reconnait que certains 

chips MMU (references 8314, 
8424, 8425, 8426) sont "bugges" 
et creent des problem es avec les 
carles 80 colonnes etendues. 

Les tableaux suivants reprennent 
l'ensemble des differences 
relevees entre II+, //e, //e+ (ainsi 
a-t-on baptise le //e apres mise a 
niveau) et //c ? pour respecfivement 



les bancs d'adresses 
$D000-$F7FF, SF800-FBFF, 
$FC00-$FFFF. Afin d'alleger ces 
tableaux, les conventions 
suivantes sont appliquees: 
"." indique une instruction 

identique & celle du II+, 
"+" indique une instruction 
identique & celle du //e, 
indique une instruction 
identique a celle du //e+. 



NDLR : Dans un prochain 
numero, nous publierans la 
routine DESASMIRAM 
(assembleur Big Mac) d'Yvan 
Koenig qui permet de 
disassembler correcternent les 
instructions du 65C02. On 
bascule entre les deux 
dtsassembleurs par Ctri-Y, puis 
on utilise comme d'fiabitude la 
commande L du moniteur. 



Co mpermlaon du conlenu das 

ft M 

0074' DA SH75-1 

D04E- DA SF39C-1 

DD30- DA ifJH-J 

DOaC- DA 3D0C9-! 

DOeB- DA SDBDO-l 

pfeD- IDA S200.M 

nVIB- fJU S70D. X 

D53E- IDA $201. X 

DSE9- IDA $200. X 

0608- LDA $200. X . .. 

D6FS- JSR SED24 

D70S- IDA $24 

U/Of- CW tJJ 

DBBO- SSC 

DBB1- IDA SAT ...... 

DB93- SBC tft 

DOBS- STA $SO 

DSS 7- IDA SBO 

D8B9- SBC $60 

DB3B- STA SSI 



ROUm da SD000 a 

m 



SF7FF dans las APPLE : 

fft 



0034- DA S03F5-1 SHLOAD canplaci pax 6 



DSfD- 
D5A8- 
D53S- 
D5S9- 
060B- 
D6F9- 
D/oy- 

OIOB- 



jste snac 
JSR SF7BC 
- JSR SF7S7 
JSR $F78C 

JSR smA 

JSR SF7AA 

jsk seiai 
nop 



tt&CALlr rnpiBc4 par i 
5T0R& I cap f and par i 



LOAD i.rp.'oc" par ( 
SAVE rerrpl*c* par I 



aouvalJ* rmchorrho rlmp 



UOIZ- UA iVJt3-t 
DO30- OA 3QJr3-l 

DOCC DA S03F5 1 
Does- DA S03FS-1 

DS6D- JSJl SDBB5 

DSA8- JSR SOBBf> 

D5BS- JSR SOBBO 

D5E9- JSR SD8BS 

0600- JSR SD8C3 

D6F*- JSR SDB03 

u/o>- jsk iuevu 

D7QB- WOP 



DSBO- LVA SSOl.X chilli ae SAVE wnplac^e par 
osjvlle evvtiaa ds tecraa- 
tago <tae ear«cCiri># 

MB3- SPI SDBCC «n 

MteV IDA S6t 

DSB7- BEQ SDBCF 

D€B9- CUP $$22 •*■» ? 

D3BB- BEQ $DBCF 
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DODD JSP SDBFO 

D9CO- JSP srtcD 
naci- ..'.co intn ) 
DBC<- JMP JFSCD 

DSC*- JS* SDBFO 
DaCC- JSP SFEFD 



DBCF- 
DBDO- 

oaoi- 

UBV1- 

DBOB- 

08DB- 

DOVA 

DKX- 

DU>£- 

naxo- 
oasi- 
D tes- 
tis f. e- 

DBEA- 
DBED- 
D«/0- 
DBF2- 
DBF4- 
BMI- 
oara- 
DOFA- 
Dorc 

DBFS- 
DKO- 
OMI- 
Dt03~ 
0*05- 
0901- 
DM8- 
D90B- 
0900- 
D90F- 
0911- 



CLC 

LDA 5*7 
ADC 550 
STA 3*9 
LDA 169 
ADC SSI 
STA SIA 
IDA Si3 
STA fDt 
JSP SD90I 
JSP SFEFD 

an sot 

BPl SOUGH 
JMP SOUS 
JHP SD4FJ 

IDA tsso 

LD7 IS 00 
STA SK 

»vr sju 

UJA 1337 

STA S3B 

STY S 3T 

STY SDt 
BTS 

ida strt 

WT St* 

STA SK 

sir sx> 

IDA SJ9 

ujy stA 

STA SJS 
STt S3F 

ins 



D9BD- 
DOBF- 

rtarj- 
nacv 
B»C(- 
DBC7- 
DBC9- 
DBCB- 
D8CD- 
DBCS- 

D$cr- 

DBD2- 
VBOJ- 

OBV1- 

D6Dt- 
DBD9 
D9UA- 
DBDD- 
D90F- 
DM1- 
DBE4- 
DBES- 
DBK9- 
DBEB- 
DBEC- 

dbsf- 

DBF2- 
VBF1- 
VBt '- 

dbfs- 
Dflffl- 



UU 
CMP 
MTO 
IDA 
PHP 
CHP 
BCC 
AMD 
PLP 
PTS 
IDA 
PTS 
FHA 
UJA 
JSP 
FLA 

JMP 

IDA 
CMP 

an 
BPL 
IDA 
CHP 
ATS 
IDA 
JSR 
IDA 

jne 

LUl 

STY 
JSR 



SI J 

IS49 «e«J-a - S3A ? 
sn*m 

S7O0.X 

IS41 ? 
Sdscd 

I53F totem an najuacuJ* 



S2O0.X 



HJO 
3DB5C 

SEDH 

S3 1 

JfJI 

scon 

SDBEB 

SO SJB 

1549 

SCO50 

SMF7 

IS14 

SFB1B 

tSil 

«o 
sncB 



artXcna ud aapac 
darvafil lm ouirrfto 



dm liyu< 



branch* ai 40 coloonaa 



OB Ft- LDA I ft 7 
D900- BCC SO903 
0909- PXB. 
QSQ3- TAT 
090*- IDA ISOO 
D90S- STA S30 
090B- JSP SF7BB 
D90B- osr 
090C- BPL SD904 
D90E- RTS 

D90F- HEX 00.00.00 fillmr 



DAUB- B&U SUB I P 



DAUB- MfcU sum 9 



OASO- BSQ SDBl S 



DA£0~ BEQ SOB It 



DB03- 

DB07- 
DB09- 
OBOC- 
DBOS- 
DB10- 
DB12- 
DB14- 
DB16- 
DB17- 
DBIA- 
DB1C- 

oaii- 

DB71- 

DB22- 

0034 

DB3S- 

DBJt- 



U>A t34 
rwp mm 
BCC SOBOK 
JSP SDAFB 

am sdbff 

ADC tSlO 
AMD 0SFO 
STA S74 
BCC SDB2F 
PHP 

JSK SE6F3 
CMP I S3 9 
BBO SDB2I 
JUT IQiQI 
PLP 

BCC SDBSB 

DEX 

THA 

SBC SJ4 



OWOJ- JSB SFB7! 
EOOt- HEX 00 



DBOJ- JSB 

fmo«- nwr 

□BOS- CMP 

DBOA- BCC 
DBOC- JSB 
DBOF- BNE 
0B1I- ADC 
DB13- AND 
OB 15- TAX 

OBI 6- SEC 

OBI 7- BCS 

OB 19- PHP 

OBI A- JSB 

OBlDr CM* 

DBIF- BNE 

DM I PLP 

DS33 BCC 

DB34- DCJf 

DB3S- JSP 



SF1B4 

ennt t 

tsis 

SDBU 

SDAFB 

SDBJF 

IS16 

tSFC 



SE6F3 
IU9 
SD8B3 

SDBSB 

SP?CJ 



0BO3- iw (nenn 



EO06- HEX C4 



bjj rfu TAB toujoura SB: 

iJ faudraie CHP IS20 



DF03- JSR SF7A6 
EOOt- BEX 00 



Paastfioi SC4 tvf //•* ? 
Crtm dm» probJaraax av*c 
programma uCiJiasnt 



F1SF CFX tSSO 



Fisr- cpx tsso 



flTD- CPX tsso 



F320- CPX IS3B 

F32B- TXA 

F339- LDf SFO 

F33B- CPY $$2B 

FJ2Q- BCS SF206 

F32F- JMP SFBOO 

FJJ5- TXA 
FJSt- lAII S2X. 

rjsa- ci>r t$2B 

FJ3A- BCS 3F106 
F23C U3Y SFO 
F23E- JMP SFB19 



F74i- CPY tS?B 
F2IB- BCS SFTO£ 
F34A- IDA SFO 

me- JMP itm 



Fiat- JMP SFB40 



F39F- JSP SF7D9 

F3A2- LDt IS03 
F3A4- LDA (S9B) , 1 
FSAf TAX 
F3A7- oar 

rJAB- U3A IS9BI. t 

F3AA HOC tSOl 

F3AC- BCS SF3AF 
F3AI- DEX 

F3AF- STA S50 

F3B1- STX $51 

P3B3- JSP SFECD 

F3BC- JSP SF7BC 



F3B9- JHP SFECD 



t J&C- JSH sr/u* 

fJBT- JiK SFBJSU 

F3CM- WX tSOl 

F3C1- MM IfSBI.r ... 

FX*- CMP SSO 

IAI IS4R). Y 

F3CB- SBC SSI 

F3CD- BCS SF3D2 

F3CF- JHP SD410 

F3D2- JSR SF3BC 

F3DS- JMP SFEFD 

carry— 1 mi mod* SO coionoif 



1*773- IDA tfOO 
F777- JTA 3 3D 
3*779 STA S3F 
P77B- 10/ tSSO 
F71D- STY t3C 
F77F' SMY 
F7B0- STY S3E 
F7B3- JSP SFEFD 
F7BS- CLC 
F7B«- IDA S 73 
F78B- TAX 
F789- DEX 



FIFO- CPX t$sn 



F230- CPX tSSO 

F22B- LOT SFO 

F22A- JSB SF775 

F23D- TXA 

F23B- JHP SFJ9F 

F231- HEX OD ?? 

MJ5- lux liK: 

F237- JSB SF773 



F!7A CPX IS30 
F23C BCS SFlOt 
F33E- JHP SF79t 



F34S- JSB SF77S 

F249- LDA SFO 

F24B- JHP SF783 

FZ4&- HEX 00 

F396- JHP SOBEC 



F3Bt- JSR SF777 



F39F- LSR 
F3A0- PHP 
F3A1- JSR SFB47 
F3A4- PLP 
F3A3- LDA I30F 
FM'- SCC SF3AD 
r3At ADC tsso 
F3AB- STA F3B 
F3AD- PBY 
n»M" JSB TF7RH 
F3B1- BCC SF3BD 
F3B3- PHX 
F3B4- IDA $30 
FJB6- TAX 
F3B7- LSR 
F3B8- TXA 
F3B9- ROR 
F3BA- SEC 
F3BB- STA SSO 
tJBU- J3K StmuH 
F3C0- BCC SF3C9 
F3Ct~ UJA 9C0S4 
F3CS- STX $70 
rsc- PLX 
pica- etc 
F3C9- PLY 
F3CA- PTS 
F3CB- LDA SC079 
F3CE- EOR BSBO 
F3D0-- AND SC018 
FJD3- AND SCO IF 
F306- ASL 
F3D7- RTS 



placa STORE mz RECALL 



riiptlm F 

dipilm i 



F7'3- 

F77&- USX SO 
F777 CLC 
P779- STA SC007 
FI7B- JSR SCSOO 
FT IK- STA SCOOt 
F7B1- BCS SF7B4 
F7B3- PTS 
HOI- JHP JWIO 
f7S7- LDA ST01.X 



ri7s~ jsB srsca 

F770 DCS SF77S 

F77A CPY 0170 

F7JC- PCS SF73F 

F77S- CPY BSSO 

F7BO- BCS SF73F 

F7B2- BTS 

F7B3- PBA 

F7B4- IDA SID 

F7BS- CMP BS30 

F7BB- PLA 

F7B9- BCS SF73F 



rroA- 
F7BC- 
F7«- 

P7BI- 
F792- 
F'JJ- 
F795- 
F?9i- 
F79B- 
F79A- 
F79C- 
F79B- 
FIAO- 
F7A3- 



STX J3K 
SBC SSO 
PHA 

in* *74 

TAV 
INX 

BNE 5F7f6 

DEY 

STY S3F 
SBC $51 
CMP S6E 
BCC SF7A0 
BNE SF7A3 
JHP iuuv 
STA 371 



FT6A- BPL 3F79D 
F79C- LDA SOE 

(TOP- HKQ SC1AH 

FT 90- CUP 0S37 

FT92- BEQ SF7A6 

FT9<- LDA 5l3 



T7A5 STA $?0 

F7A7- STA SJD 

F7A9- STA ftf 

F7AR- PlJt 

F7AC- STA SEB 

F7AE- STA 57} 

F7BO- STA 56F 
F7B2- STA 53C 
F7B4- JSR SFCFA 
F7B7- IDA 0503 
f>B5- JtCP 5FF92 

p/jo etc 
rim- Ida sti 

1 1 n>- aim; s$v 

57CJ- STA JlJt 
FTC J- IDA JK 
F7CS- ADC S$l 



P7T7- CT4 SIP 

F7C9- tDY 0501 

F'CB- LDA iSfBl.r 

F7CD- JSJt SEOBF 

F7DO- LDA 594 

F7D1- STA SX 

F7D4- LDA 593 

F7DS- STA S3D 

FJDa- RTS 



F?96- 

F798- 

F79A- 

F79D- 

F79E- 

t'fAV- 

FTM- 

F7A4 

F7AS 

FJA{- 

F7A9- 

F7AA- 

F7AB— 

F7AD- 



CHP $549 
BEQ SF7A6 
LDA S20O.X 
PHP 

CI4P 156 J 
sec SFIM 

fitfo 04oe 

PLP 
RTS 

LDA 5906. X 

MS 

PHA 

LDA 1520 
JSR SDBSC 



F7BO- P1A 
F7BI- JHP 5ED24 
F7B4- LDA 524 
F7B6- C0iP $521 
F7BB- BJT 5COJF 

i /as- bpl sn<:i 
F7BD- LDA 533 7B 
PFCV~ CW 0519 
FTCJ- RTS 
FTC J- TXA 
F?C1- BIT SC01F 



trrri- 

F7C9- 
F7CA- 
F7CC- 
F70J- 
F7CE- 
F7DO- 
F?Di- 
F7D4- 
F7D3r- 
t SU/- 

rf do- 



umi SF7m 
HEX 2C 
STA 524 
SEC 
TXA 

SBC 524 
RTS 

SBC S0S7B 
RTS 

HJSX 00, 00 

OKA 

aw 



F7AB- PHA 

F7SC- JSP SF39F 

F7AF- PIA 

F790- CMP SPD 

F792- INA 

F793- BCC 5F7BB 

F79S- RTS 

F796- TXA 

F797- LDY SFO 

F799- JSR SF39F 

F79C- CPY S3C 

f 'VSS- BCS St'/ 9* 

F7AO- IHT 

F7Al~ JSR 5F7AD 

F7A4 BPA SF79C 



F7A4- 
F7A7- 
F7AA- 
F7AB- 
F7AC- 
F7AF- 
F7BO- 
F7B2- 
F7B5- 
F7B7- 
F7B8- 
I IOA- 
F7BB- 
F7BE- 
F7CQ- 
F7C1- 

r?cj 

P7C4- 

FJrv 

F7C7- 
F7CA- 
F7CB- 
F7CC- 
F7CF- 



PKA 

JSP SF7BB 

PIA 

PHP 

JSR SF871 
PLP 

BCC SF7BA 
STA 5COS4 
CMP ISOB 
ASL 

AND 0SOF 

KT& 

JSK 3T3CB 
BCC Sr7CA 
TXA 

ZOK 03O1 

LSR 
TAT 

PTC SF7CA 
ijia scfiss 

RTS 

TXA 

BIT SC01F 
Bttl SF7S3 



F7D1- HEX 2C 

F702- STA $24 

F704- SBC 

t'U3- TXA 

1706- SBC SJ1 

FIDO- KTS 



in crime tit A 



F7£0- LDA ISOO - F7SO- ST2 S14 

F7S7- STA $14 _ ... P7P7- WC 

F7S4- jup snnrn f7jpv snr soma 

F7E6- RTS 

FTEB- TXA ... F7EB- LDA IS2B 

F7BC- CMP 0S2B F7SD- CMP 521 

F7£E- BCC iF7FA F75F- DCS SF7F3 •« »"•• 

F7F0- SflC 4S23 F7F1- LDA 521 

FTF2- PHA 

F7F3- JSR SDAPB F7F3- JSR SF7D2 »••-• 

F7Ffi- PLA ... F7F6- STX 524 "• *** 

1717- JMF 4F7SC ... ..... F7ffl- KC frrDQ tftB" KC ff'OB 

FT FA- STA «« F7FA' TAX 

F7FC- RTS ... r7PO JSK SOAFD '-• **•*« 

F7FD HEX CB.D2 F7FB BUB 5F7EB FJPB- BRA FP7BB 

F7FF- HEX D7 P7FF- HEX 70 eonciSlt pmi 1m 

WW /nr.r« r»(lO 



Comp era/son du contonu das ROMs rf« SF800 t) $FBFF dsns 1st APPL£ : 
N* f/m Urn* /As 



reto- occ srssa 

FB93- BCS SPBAS 
M$S~ CMP ISA? 
FS97- BEQ SFBA5 
FB99- AND 0SB7 
FB9B- LSR 
FB9C- TAX 
FB9D- LDA SF962.X 
FBAO- JSR 5FB79 

FBA3- BNE SFBA9 



tUAi- 

FBA7- 

FBA9 

FBAA 

FPAD- 

FBAF- 

F8B1- 

F8B3- 

F8B4- 

F8B6- 

FBB7- 

F8BB- 

F8BA- 

F8BC- 

t'BiUt- 

FBB.F- 

FOCl- 

FBC1 

FBC3- 

FBC9- 

FBC6- 



UJX 05BO 
IDA 4300 
TAX 

LDA SF9A£,X 
STA S7E 

and tsm 

STA S2F 
TXA 

AND 0S8F 

TAX 

m 

LDY 0SO3 
CPX 058A 
BEQ SFBC9 
LSR 

BCC SPSC9 
LSR 

LSR 

ORA 0S3O 

DEY 

BNK SFK7 



FBAF- 
F8BO- 
F8B2- 
FBB4- 



TAX 

STY S2A 
LDY tSlO 
JHP SFBB1 



roro- Bee sfoh 

FQ9J- BCS SF1A1 

F89S- AND ISB7 
F897- LSR 
F89B- TAX 

F899- LDA SF962.X 

F99C- J5R 5F879 

FB9F- BNE SF8AS 

F8A1- LDY ISFC 

F8AJ- LDA 0SOO 

FBA3- TAX 
FSA<f- IDA SFMf.X 
F0A9 STA S2S 
F8A&- AND 0SOJ 
FBtn- .STA S3F 
FBAF- JSR SFC34 
F8B2- BEQ SF8CC 



F8C9- DEY 

FBCA- BSE 5FBBE 

FBCC- RTS 

F8CD- HEX FF. FF, FF 

F918- LDA SF9B),X 

F91E- LDA SF9B9.X 

FJ«- HEX 04, 20. 54 

F9SS- HEX 30, 00. 90 
F06B- HEX 04, BO 

F9EC- HEX 54 

F96E- HEX OD, BO, 04 
F971- HEX 90,04 

F974- HEX 34 

F97S- HEX OD, BO, 04 

1979- HEX 9U.01.XO 

FI7C- HEX SI, 30, OD 

F*7r- HEX BO, 01, SO 

HH HEX 00 



FQB7- STA SC006 

FBBA- LDX 9502 
FBBC- LDA SC30S.X 

FBBF- CMP SFC*C,X 

FBC3- AWE SFSCB 
tOC 4- DSX 
F*C*- OPX 
FBC6- BPL 5 FBBC 
F8C8- DEY 
F8C9- BNE SF8BA 
FBCB- STA SCQ01 
F8CE- RTS 
FBCF- BRK 



F994- HEX 44 



la a opcodes 

invalid** Moat diaormit 

aitlch*m 'NOP 1 
mt boo plus 'tPf 



F834- 
F8B6- 



F8BA- . 
F8BC- 

ffloa- . 
raw- . 
Fact- . 

F0C3- . 

F0C3- 

Fari- 

FBCB- . 
FBCB- , 
F8CA- 
F8CC- 
FBCO- 



F91B- LDA SF9B9.X 

F91E- LDA 9F9B3.X 

F902- HEX OF. IE, FT Coiiioo -Joa 

FOBS- H£X 33. CB, 43 
F9EB- REX PP. 73 

F96C- HEX FF 

F9EE- HEX CB, S6.FF 
F971- BEX 77,0/ 

F974- HEX FF 

F976- HEX CB, SO, FF 
FI79- BEX 70, Or, II 
F97C- HEX FF,39,CB 
FS7F HEX C6, FT, 7D 
F963- HEX OB 

F9#4- HEX FP 



F9B6- HEX OD.CB 
FS88- HEX 44.00 



F9BS- HEX CB.Ai 
FJfifl- HEX FF, 7 J 



f 98C- HEX 44 



F96C- HEX FF 



F9BE- HEX OD.CB 
F990- HEX 44. A9 



F9BE- HEX CB.A6 
F99D- HEX FF, B7 



F9S4- HEX 44 



t9St- HBX VU. »U 
/ *>!/- HEX 04. *U 



F99C- HEX 14 



Fit*- HEX FF 

Hit,- HEX Lei, to 

F99B- HEX FF, 70 

F99C HEX Fr 



F99E- 


HCX 


OD. BO 


F9AO- 


H£X 


04. BO, 34 


F9A4- 


HEX 


B7.9A 


F9M- 


HEX 


00, 00. 59 


F9AD- 


HEX 


4D, 91, 92 


F9B0- 


HEX 


BE, <A 


F9B1- 


HEX 


15. 90 


F9B4- 


HEX 


AC. A 9. AC 


F9B7- 


HEX 


A J, AB.A4 


F9BA- 


HEX 


09. 00. oa 


F9B0- 


HEX 


A4.A4. 00 


F*DO- 


HKX 





F9E0- 


HEX 


M 



Ft»S- tax cb, to 

puo- err ff. 70. it 

F9A4- HEX 65. 78 

F9AA- HEX 55. 40. 91 

F9AD- HEX 92, 86. 1A 

F9B0- HEX 85, 90 

F9B2- HEX 49.5A 

F934- HEX 09. 00, OB 

F9B7- HEX A4.A4. 00 

F9BA- HEX AC.A9.AC 

F9BV- HEX A J, An, A4 

FtDO- HEX IC 

FSSO HEX AO 



F9ED- HEX 00 ... .. F9ED- HEX 8A 



fbkf- hex no F9BF- HEX flfi 



FAIO- HEX 00 FAIO- HEX C4 



FA20- USX ..... FA30- HSJ Ot 



FA20~ HSX 00 FA2D- HEX 7} 



FA2F- HSX 00 FA2F- HEX 72 



FAIO- STA 545 PA40- PHA 

FA42- PLA ... FA42- LDA $45 FA41- PIA 

FA43- PHA ... FA42- FIA 

FA44- ASL ... FA44- JHP SC9FA FA43- JHP SCBOE 

FA4S- ASL ... PA4E- HEX FF 

t»«8> An ... FA47- STA S44 

FA4t- BM 3FA4C FA47- STA SLUOi CM** 1 MJ 

Mff JMF (fOJFE/ ■'"/. STA 343 FA4A- FIX 

FA4B- PLA 

FA4C~ PLP 

FA4D- JSR SFF4C F A4lh JSR SFT1A 



FASF- LDA SC05B FIEF- JSR SC41C 

FA72- LDA SCOSA MM- J.W SCCni 

FA75- LDA SCOSD FA75- LDY tS05 FA7S- LOT 1509 FA7S- STZ 504FF 

FA7B- LDA SCOSF FA77- JSR SFBB4 FA77- •** FA7$~ LDA SCOSF 

FA7A- NOP FA7A- »ti 

FA7B- LDA SCFFF FA7B- JSR SFABD 



FA93- BNE SFAA3 FA9J- BNE SFACF 



FA19- BAfl HAAJ 



FAA)- Jiff (503F2) 
FAA6 JSR sroeo 



FAB4- LDA IK 

FA36- SIX SOQ 

FABB- STA SOI 

FABA wr 1507 FABA- LDY 

FARC DRV IQJ 



FA99- BNE SFACF 

FAA3- J5K SFFJA 
FAA 4- JSR SFCCA 

FABI LDA ISC 6 dl« nmij on 

rachamhm ua J»ot*Uf 

FAME- BRA FFB12 dm eUa«u»te« 4 

par etc du mlot t 
FABB- HEX BA.BB opr.odmm PHY. PLY 

ISOS FABA- HEX AS.AC.OO opcocto* STZ. 7RB. BRK 

FABO- IDA tSFF 



FABE- UJA *01 - FAJU- STA 3Q1FB 

FACO- CMF ISCO 

FACl- BtX} 3FA9B FACI- ASL SCOti 

FAC4 OTA S0 7FB FACS BIT SC06! 

FACI- UU IfOOf , y FACB BPL SFB3B 

PIC 9- CMP SFB01. Y FMCA- BCC SFAA3 

PAf?- BHT SF AAA FArr- MP Sf77f 

FACE- DEY 

FACE- DSt ... ... FACE' MP iSOtFJJ 

FADO- BPL SFAC7 

FAD2- JKP ISO000 » FAD2- BEX Cl.DB.D9 

FAD5- HEX EA.SA TADS- HEX 00.00 FAD5- HEX D0.D3 



IDA fFAti.X , ., FAE9- IDA SFW7,x 

FAFE- JSR 5FDDA FAF6— BRA SFB02 

FAT9- INX ... ... FAFt- HSX 74.74 

FATA- UHl itAhl tAfA- H£X /•, C* 

FAK- Wi ... ... FAIL- HSX (JU 



FBOl- HEX IO.FF.00 FB01' JSR SFODA 

FBOS HEX F ' FDOS tOf 

FBO<- HEX 03.FF FM04- OH I SFAE4 

FBD9- HEX TC FROB- WJgg 

'I', i APPLE I -:• ' Apn'» It ***** ** ***** •* 



FBI 2- HEX C2.CI FB12- STX S00 

FB14- HEX FF.C3 FB14- STA SOt 

FBlt- HEX FF.FF.FF FB16- JSR SFBfQ 

FB19- HEX C1.DB.D9 FBI 9 MP tSOOOO) 

FB1C- HEX DO. 03 FBIC- HEX FF. FF 

FBIE LDA SC070 FBIE- JHP SC7DE 

FB40- IDA tSQO FB4D- HEX EA. EA 

FB4F- STA 5JO FB4F- JSR 5CE0A 

rail- uia ma east- wt ssua n»l' ujt isoc ibsj- bha $tus* 

FB33- STA Sit FB33- BNE SFB84 »». *rm FBS1- ORA ISBO 

F8S3- LDA IS19 FBSf- MF XCD24 

FBS7 STA ;:j 

FBE3- LDY 9S09 FB*3- LDY 1909 ••• 

FRtS- UU SFROB.Y FRES- l/U SFF04.Y FRSS- IDA SFDfll.Y 

FBtB- STA S040X.Y ... - FBSB- STA 50400, Y 



FB94- JHP SFBFD FB91- BIT $0b7B 

FB97- SEC ... ... FA97- BHI SFBFD 

fflSS- JHP SFCK FB99- BIT IStO 

FB9B- TAT ... ... FB9»- JSR SFB54 

FB9C- IDA SFA1B, Y FB9D- JSR SC3BB 

FB9F- JSR 5FB97 FBAO- INC S057B 

FBA2- JSR SFDOC FBA2- JSR SFD2I *#♦ FBAJ- LDA S057B 

FBA5- CHP iSCf. FBA6- BIT SCOIF 

FBA7- BCS 5FB97 

FBA1- Otr if-* FBA9- Bftt SFBBQ 

FBAB- BCC 3FB97 FAAO- STA 304 TB 

FBAO- CHP I SCC FOAB STA 42* 

FOAF BEQ SFB97 FDBO BRA 5FBF8 

FBBl- BNE FFB9B FBB2- HEX FF 

y i?!< J HEX EA FBB3- HEX OS **» •* *•* M wrat'np 

FRB4- tX1P FHR4- PBP FRR4- RtT SCO 1 9 FRR4- OPI. SFBRT 

FBB5- MP FBB5- SSI 

fBS6- HEX EA.SA. KA Ffffl6- BIT SC01S FBB7- PHP FB36' CHP I5A0 

FBB9- NOP FBB9- PHP FBBB- STA SC007 FBBB- BCC SFBBC 

TBBA- HEX EA.EA.EA FBBA- STA SC007 FBBB- JHP SC100 FBBA- AND S32 

FBBO- HEX EA.EA.EA FBBD- JHP SC100 FBBB- BRK FBBC- MP SFDF6 

FBBF- BRX FBBF- HEX FF 

FBCO- HEX EA tBXO- HEX SO FBCO- REX 00 



CamparslBon du conlonv dt» ROM* do SFCOO i SFFFF dan* I*m APPLE : 



n* lit 110* ftc 



'«-"*- tlltU «C« /cot- BZQ SFC73 



PCI 0- DEC 524 XC10- JSR SFEKl 

PC} 2- BPL 4PBFC JC13- BPL SF7SFC 

rci4- lda sn rcii- MA WI 

FCIS- STASH fc 17 . jsp SFESO 

FCIB- DEC S74 ...... 



FC1K- BCS SFC2B FCSE- BCS SFRFC 



FC72- LDA £25 SC22- BRA SFCB6 

FC24- JSR SFBCl fC24- STA 428 FC24- 

FCJt- TYA 

FC27- ADC $20 FC17- LDY l$0< FC27- LDA 420 

fLYS- STA 52B FC29- WE SFB34 FC29- BIT 4C01F 

FCXB- RTS ... FC2B- HEX 00 FC!C- BPL SFCjO 

FCTC- BOA tKO FC2E- LSR 

rczs bsq srcsa rcii- etc 

FCPO- ADC ISFD RTJO- ADC SIB 

FT17- BCC SFBP4 JCM STA SSB 

FC34- RRQ SFTIO TC31 RTS 

TC3S- TM 

FCJff- ADC ISFD jtm- toy 451 f 

fCJfl- BCC SFC6S JTJSB- CMP SFEFE.X 

FC3A- BBQ 4FC1A pcjfl- BEQ SFC80 

FCJC- ADC I4FD iCJO- VEX 

FCJE- BCC 4FC9C JTJ£- BPL SFC38 

FC40- BNS 4FC2B FC40- BNE 4FBFC FC40- RTS 

K11- HEX FF 

SV12- LDY 524 FC42- LOT $$00 FC4J- LDY l$OA FC42- BRA 4FC5D 

FC44- LDA 523 H.14- BMJ SFC/2 FC-44- BNS SFC2S iC44- 

FC4C PtlA I~C4B- ICI 1W- FCBB- Bit SUllt fen- 

re*? jsr src.-i rcir- dpi. sreir 

FC4A- JSR {FCSE ff*S- LOT 4300 /C«- ,,, 

FC4D- LDY ISOO FC4D DSQ SFCSA rctO- 

PC4F- PU FC4F- B2. APPLE FC4F- TYA FCIF 

FC50- ADC ISOO PPSfl- PW* FCSO- TWA 

FC52- CMP $23 FC51- JSR SFB7B PCS I- CMP Ssi 

FC54- BCC SFC46 PCS*- PIA FCS3- BCC SFC46 

FCie- BCS SFC22 FCS5- LDY 435 FC5S- BCS 4FC22 

FC37- RTS FC57- BEX FF 

FC5B- LDA 522 FCS*- LDY t$Ql FC38- LDY l$Q5 FC58- JSR SCDA5 

FC5A- STA $25 FC5A- BNS 4FC72 FC5A- JMP $FBB4 FC5B- BRA SFC44 

FCSC- LDY §400 FC5C- RICK A FC5D- HEX S3 FC3D- JSR SCC9D ~RICR"-Auricchio 

FC3A- STY $24 FCSE- HEX SC. SC 

FCBO- BBQ 5FC4B tVtV- tUOt 00,00 FC60- BRA SFC44 

FCffJ LDA 4S00 rKM- OKA itV/3 

FCH- STA S24 re<4 - rLM.PUl ftt 



rrtr- f>rr fFC24 fcgc bcc ires a 



FC70- LDA $22 FC70- LDY tSOJ FC70- TJ1Y f$OS 37C70- JMP SCBJi 

FC12- PBA FC71- JMP SFBB4 FC72- BNE SFC2 9 

FC73- JSR SFC24 FC7S- PHA FC74- STA SCQ06 FC73- JSR SF£E9 

FC76- LDA $2B FC76- LDA SCOIB FC77- JHP {$03FSj FC7S- BIT 4Q4FB 

rC7tt- STA S2A FC79- ASL FC79- BPL SFCBS branch, mi PsbcAJ 

FC7A- LDA $29 FC7A- PIA ***■ 

tU/V- STA 52B FC7B- BIT SCOIC fCSfl- STA $07F$ K7B- JSR SFD44 

rc7B- lot 5/j rent- php fc?e- chp tsci fc?e- bra sfcss 

rceo- per fcbo- bcc $fc8f fcbo- lda sffis.x 

FCai- pla rcai- STA SCO 5 A 

FCOS AOC 4501 rCB/- STA iL//J rV»J- SJJY B5O0 

FCB4- CUP S33 FCB4 BIT SCOIS FCBS- LDY t^OO fCBS- RJS 

FCnt- prs $FC95 WCt 7- STA SCOOf PCS 7- LDPf £01 FCOC LDA $23 

FC8B- PBA PCOA- CI. J PCB9- STA SOI FCBB- STA SOSFO 

FC8S- JSR SFC24 FCBB" SSI FT PR- r/U iSOflJ . Y FCBS- BRA SKJ4 

FC8C- LDA (4281, Y FCBC- BPL SFC91 FCBO- ST3t SOI PTBD- JSB SCC9D matmAU CLRSOL 

FCSE- STA IS2AI.Y FCBE- STA SC0O7 FCBF- STA SC00 7 FC90- LDA I' • nn.iv— „ CLMOLZ 



4CKJ- VSY 
FC91- BPL 5FCBC 
FC33 DM1 iFC 76 
FC9S LDY 4500 
FC97- JSR SFCSS 

FCM- RT.1 SFC7? 
FC9C- LDY $24 

FC9E- IDA /SAO 
FCAO- STA {$28/ , Y 

FCA2- INY 
rCAS- CPY t$2l 
FCA5- BCC SFCAO 
rVA'- MfTS 



FC9J- PLP 

FC92- BCC 4FCSS FCS2- JHP 4C4JG 



FC34 BPL 

FC3t BIT 

FCBB- RTS 

FC9A- HSX 

FC9C- CLC 

FC3D- HEX 

FC9E- SEC 

FC9F- STY 

FCAI- LDY 

FCA3- BCC 

FCA5- wr 

FCA6- BNE 



3FC99 FCS j- BCC 4FCSS 
SCOSS FC97 AND S3S 

XA.EA FC99~ JMP SFDF7 

FC9C- SEC 
BO FC9D- REX 90 

FC9E- CLC 
41F FC9F- STY $2A 

0$O3 FCAI- LDY IS07 

SFC72 FCA3- BCS SFDW 
4*4 

5FC72 FCA6- BNE $FD1D 



tV92- BIT oOt'H 



res*- on i sfcss 



FC99- JMP SCBC3 
PC9C- AAA SFTRt) 



FC9E- BRA SFC90 
FCAO- LDY «S00 



FCA2- BRA $FC90 
FCA8- JMP I4CD2A.X} 



SIF 4taS t una 

adiBBBe on Daqa 

iSro invtiliB* sue II* 



FCA7- HEX FF 



FCC J- LDY 454B 



FCCB- JSR SFCDB 
FCCR- UNK SFCC9 
FCDO- ADC isFE 
FCD2- BCS SFCC9 
FCD4- LDY 4S21 
FCD6- JSR SFCDB 



FCD9- 
FCDA- 
FCDB- 
tUAJ- 
FLDfi- 
FCEO- 
FC£X 

mri- 
PXE5- 
FCE8- 
FCEA- 
FCSB- 
PCEC- 
FCEE- 
FCSF- 
FCF2- 
FCF3- 
BCF4- 
FCF6- 

FCT7- 
FCSB- 
FCTA- 

pcrn- 

PCTE- 
FDOl- 
FD03- 
FD05- 
FD07- 

FDOB- 

FDOC- 

FDOB- 

PU1V- 

FOll- 

FD13 

FD1S- 

PD17- 



INY 
SHY 
DEY 

ONE SFCUB 

JDY 4532 

DBY 

BNS SFCSS 
LDY SCDJO 
LDY IS2C 
DEX 
RTS 

LDY 0508 
PHA 

JSR SFCFA 

BLA 

POL 

LDY ISJA 
DBA 

BNE SFCBS 
FTf 

JSR SFCFD 

rtRY 

IDA SroArt 
BOR S2F 
BPL SFCFD 
BOR $2F 
STA $2F 
CPY IS80 
RTS 

LDY $2-4 
LDA l$2B),Y 
PHA 

AND t$JF 
OKA 4540 
ETTA l$30) , Y 
PU 



FCC9- STA SCUU/ 



FCCC JSR SCSt7 
FrrF- jvp sfecs 

FCD2- STA SC006 
FCDS- JSR 4F94A 
FCD8- LDA iSDE 



FCDA- JSR SFOED 



FCDD- 



FCB3 
FCEC- 



JSR SFF3A 



STA SCO06 
JSR 5P8D0 



BffSSSr- KTS 

fCCA- LDY 43BO 
FCCC ST 2 S3C 
FCCE- LDX ISBV 
FTDfT- *?D 
FCDP- LDA ISAO 
PCOf- STA IS3CI.Y 
FCOB- DEY 
PCD 7- STA l$K) r Y 
FCD9- DEX 
FCDA- CPX l$0! 

FCDC- BNE SFCVO 
FCDS- STA SC001 
Klttr WA SUMS 
FCB4- SBC 
TC£>- LDX 4500 
FCC 7 LDA SCB27.X 



Xonction eaasoLto 
auppcltt&m 



FCR9- .KB $r9*9 FCXJL- BCC SFCFi 



FCEC- 
FCEE- 
FCFO- 
FCF2- 



STY S3B 
STA S3A 
LDA ISA1 
STA $33 



FCF4- JSR SFD67 



fUV- STA 5CO07 

FCFA JNP 5CFSC 

FCFD- LDA 50S00, 1* 

FDOO- INY 

FDOl- CMP /SKI 

FDOS- trr $mnR 

FD05- CMP ISFB 

FDQ7- BCS SIVOB 

FD09- AND I9DP 

FDOC- LDY ISOB 

FDOE- BNE 4FDJ3 

FDIO- JMP 4FDIB 

FD1S- JSK SrUBI 

FDl 6- BSX EA, LA 



FCEC- CMP $n*77, X 
FCEF- CLC 
FCFO- BNE 4FCF6 
FCF2- CPX 1582 

FCF4- BCC SFCFC 
FCFS- STA $0477, X 



FCFA- BNE 5FCE7 
PCFC- LDA SC034 

rcrr sta scooo 

FDOl- RTS 
FV03- Appl* f/B 



FDOC- 

FDOE- 

FDIO- HEX EA.EA.EA 

FDl 3- HEX EA, EA, EA 



initiali&o pour 

80 eo J on n 03 



FDSB- INC S4F 
FDIO- BNE SFD21 
FD1F- INC S4F 
FQ21- BIT SCOOO 
FD24- BPL SFD1B 
FD26- STA l$28i, Y 
FD3B- LDA SCOO0 



FD1B- LDY 4Sof FD1B- LDY 4503 

FD1D— JMP SPBB4 f »» *+♦+* 

FD20- NOP t-it- 

FD21- JSX SFDOC tit 

FD24- LDY 8S07 FD24- LDY IS01 

FD26- JMP SPBB4 FD2t- BNE SFD1D 

FD39- STA SC006 FD2B- LSR S07F8 



FD1D STA (SiOJ, 

FD1D— JSR SCC4C 

FDPO~ JSR SCC70 

FD7i~ HP/. SFD70 
FD25- PHA 

FD26- LDA 158 

FD28- BIT 504FB 



HUB' BIT SCO10 FD2C- PLP FD2B- JH? SFDOC FD2B- BNS SFD4A 

FD2D- RTS FD2D- PIA 

FD2E- RTTS ... FD2E- HOP FD2E- CMP 459B 

tiur~ jsa ir&oc fdjf- jsh smjt -»» »"»» tuso- she -.■-_*- 

rvsj- j\s* sfbas row- jmp scccc 

FD35- JSP SFOOC FD3S- JSP FDJ> JHF iCCED 

FD3B CUT tStD FD3B BIT S0t?8 

FD3A- BSQ IFD2F FDIB- BM1 IFD44 

FD3D- LDA S37 ... BV3D- LDY tSOF FDJD- CMP 13*3 

H) IF- MM ... FT) JF- JSB SFRP.4 TO IF- BNC SFD44 

FD40- LOA ISF FD41- JSP SCC10 

FD42- STA 532 FD42- HEX EA.EA FV42- LDY 52 4 FD44- PHA 

FV44- IDA S02DO. X FV44- STA 50700, X FD43- LOA 9S0B 

FD47- JSP 5FDSD F047- TSB 504 FB 

FD4A- PIA ... ... FD4A- PLA 

FD4B- STA S 32 FD4B- HEX £A.£A FD1B- RTS 

FV4C- HOP 

/U1U- UiA Sv/OU.X tV4D- JSR JtM» 



ton- jsb sfdzd poet- jsr jcsam 



IT)?S JSB SFD3S FD73 JSP SCCED 



FD7A- JOT 9PD7E JT>?A- SUP tFDDi 

FD7C* LOA IS1BI.Y FD7C- JSB SCCIO 

FD7E- CUP 9SE0 FV7E- BIT SCOIF FD7F- HEX EA. LA 

FD80- SCC SFDB4 FDBl- SMI SFD3D 

FDB2- AND ISDF FDB2- AND iSFF FDB3- NOP FOB I- HEX LA. EA. EA 



FDB9- BUE SFDSD FDB9- BNE SFD47 FDB9- BUS 5FD4D 



FDFO- CMP ISAO PT3F0- PHA FDFO- BIT S0I7B 

tUM- BKX 3F1AT* tVt 1- WW 9SAQ 

FDF4- AND 332 FDF3- JMP SFCiS FDF3- JMP SF0B4 

rort- m 333 pvrt- ma rora- 

rort piia ... rvr? sty S3S rort ... 

FDF? J£B SFB7B FOF) 7 AY FDFJ- 

FDFC- PEA ... FDFA- PLA FDFC- ... 

n>H>- LDY 53S FPF8- JMP SKIS PDFD- 

FTFF- RTS --- FDFK- HEX •"/. . KA FDFF- ... 



F£9F- BSQ SFEA7 FE9F- BEQ SFEAS FE9F- BNE 5FEA7 

FEA1- OfiA ISCO FEA1- CPY IS1B 

FEA3- Wt ISO j FZA3- BSQ SFEDE 

FEA5- BEQ SFEA9 FEA5- STY SOO, X FEA5- BPA SFEC2 

FEA7- IDA 4SFD FZA7- STA 501. X FEA7- OPA I5C0 

F£A9- STY 500, X FEA9- LDY »SOS FEA9- LDY ISOO 

FLAB- STA 501. X FEA3- JHP SFBB4 FEA3- STY 500. X 

FSAD- PIS ... FEAD- STA 501. X 

FEAE- HEX EA. EA FEAE- HEX EA.D1 FKAi- HEX EA.OQ FEAT- HTS 



FSC2- RT ... ... FEC2- DBA 

FEC3- NOP ... ... FEC3 STA -*."':. 

FEC4- m 

FECS- HEX EA. EA. EA FSC3- FXCS- STA SCOOi FECt- IDA ISF7 

FECB- HEX EA.EA ETC*- PTS FFrg- MA SFtCF 

FECt- RTS 



FSCD- LDA IS4 Ft CD- PTS 

P£CF- JSR 5FCC9 FECF- STA SCOOT FECt- 57A SfflB 

FED2- LDY 4527 ED 2- JSR SCSAA FED1- STA SCOOE 

FE334- LCX 9SOO FEDS- BEQ 5FF03 FED4- TSB 504FB 

FEDt- ECU IS3C.XI FED 7- PHX 

FEDB- PEA ... FED7- LDY 151 FEDS- PHY 

FED9- LDA {SX, XJ FID9- LDA $43 FEDf- JSR SCDCD 

FEDB- JSR JFESO FEDB- BEQ 5FES1 FEDC- PLY 

FSOD- CMP (5 3CI.T FEUJ— PLX 

FEDE- JSR SFCBA tEUF- tXIE StEla FEDS- LDA tSFD 

t*Al~ XAJI IS1D FtKl- OEY FEEO— BRA SFZAD 



FBS3- ?U ... FSE2- LDA S41 FSS2- PUT 

FEE*- BCC SFED4 FEE 4- CMP (SX) . Y FEE}- JSR SCCSD 

FEES- LDY PS22 FEES- BNE SFEEB FSEt- OEY 

rtze- JSP. SPUD ... Ptse~ Jsk UBU ns*~ BRA SFtBB 

FBEB- BBQ SFF3A - FEEB- JSK SFCBA FSEt- LOA ISOl 

~ LDX tSlO FEES BCC SFED7 FEEB DEA 

F££F- ASL ... FSBC' PUY 

FEED- TAY 

FIFO- PTS FEES- JSP SCCAD 

PKFn~ JSR .;r — i FFF1- 1DY I'"- FKFI- PLY 

PEF3- BNS SFUF FEE 3- JSP SF9B4 FSF2- LDA S0S7B 

fees- rts ... an- ... 

FEED- JSR SFCFA FEED- STA SCO07 FEED- RTS 

FFOO- LDA 4515 ....... FT0O- JSR SCSD1 PEFE- HEX 12. 14. LA 

FF02- JSR SFCCf FF09- STA SCOOS FF01- HEX 1C. 32. 34 

FF05- STA SiE FT06- BEQ 5FT3A FF04- HEX 3A. X.52 

FED I- JSR SFCFA FFOO- BNE 3FF2D FF07- BEX 3A. *4, 72 

I lO A- LVI B5i4 rrvA~ AppJm //• t*VA- HtX 14, /A. /C 

rroc- jsa j ran rroo- hex ei, a 

FFOF- BCS JFFOA FTOF- HEX 9C. SE 

rrt i - jsr 3FGTQ rru bex b*. di, r 

FEU- LDY *S3B FF13 JSB SFCFD FT1 4 BEX FC, JB 

FFIC- JSB SFCEC ... FT I *- CNP ISAO FF1 1- HEX FB.37.FB 

PP19- STA tfX.X} FT IB- BSQ «TI5 

rru- rts ffi *- spy n. 3\ 

FF1B- EOR S2S ... ... FFIB- BCS SFFBA FF1B- RKX 35.21 

EF1D- STA S2E FF1D- CMP ISAO FF1D- HEX 3A.FB 

FF1F- JSR SFCBA ... FT IP- BNE SFF49 FF1F~ REXFA.3B.FA 

FF22- LDi 4S3S ... FF21- LDA 50200, Y FF22- BEX F9.22 

FF24- BCC SFF16 ... FF24- LDY 4507 FF24- HEX 21, 3C 

FF2S- JSR SFCSC ... FF26- CMP ISBD FF26- HEX FA, FA, 3D 

FF29- OtP SSS ... ... FF3B- BEQ SFFA7 FFlt- HEX 3E. JF 

FF2A- 1NY 

FF2B- BSQ SFF3A FFIti- O&U SFF19 triU- HEX ft. Of 



FF7B- LDY 0317 FFT»- LDY ISIS 

FF7D CMT Srrcc. Y ... FF7D CWP SFFCD.Y 



FFAT>- LDA i0>00, Y tPAF*- JSB NCR) /TAB- 

FFBO- JNY ... FFSO- MOP FFfM- 

rFSJ- EOR 4SB0 FFBI- JSP SC399 

FFB3- CMP PSOA FFB4- EOR ISBQ 

FFB5- BCC SFFBA FFBt- CMP 4S0A 

FFB7- ADC IS8B FVB8- BCC SFFBA 

FFB9- CMP 45 FA FFBA- BRA SFFF3 

FFBB- BCS SFFBA FFBB- JMP SFF1B FFBC- HEX FT. 41 ?? 

FFBD- RTS RTS 



FECI- LDA SFFE3, J~ FFC1- LDA SFFEO, Y 



FFCC- HEX BC.Bi. BE , FFCC- BEX EA, JSC, B2 

FFCF- HEX B2.EF.C4 FFCF~ HEX SA, KF. C4 FFCF~ HEX BE. EF, C4 

FFDB- BEX BS.A9.SB , FFD2T BEX EC, AS. DB FFOi HEX AS. DD. At, 

FFDS- BEX At.A4,Ot FFD5- HEX A4,Qt,9i 

FFDB- HEX Rf-.07.O2 FFDM- HEX 07. nr. ft* 

FFDB- HEX O3.F0.OQ .. FFDS- HEX 00.B3.A7 

FFVS- HSXEB.fJ.A7 FFDE- HEX C6.99.B2 

FFE1- HEXC5.99.B2 , FFE1- HEX C9. BE. 35 

FFE4- HEX C9.BE.Cl FEE*- HEX C9.BE.F0 FFE4- HEX BC.SE.AF 

FFE7- SEX 3S.BC.C4 FFS?- BEX 3S,BC,D6 PFE7- BEX J7.17.2B 

FFEA- HEX 95. AF, J 7 FFEA- HEX 1F.B3.7F 

FEED- HEX X 7. 2B, IF , FFED- BEX 50. B5. 17 

FFFO- HEX B3.7F.SD FFFO- HEX 17.FS.03 

FFF3- HEX CC.Bi FTF3- ADC I $68 

FFZ3- BEX FC.17 FF«- OB WA 

FFF7- BEX 11. FS FTF7- BCS SFFBA 

FFFt- BEX Q3 FTF9- RTS 



PFFS- HEX tO. FA FFFE- HEX FA.C3 FTFE- HEX 03, C» 



Vous venez de troquer votrc 
Apple 11+ ou lie contre le portable 
He. Les caracteres souris 
perturbem un peu l'affichage des 
programmes que vous utilisiez 
reguIiSrement sur l'ancien Apple. 

Outre ce probteme, lc eclcbre Pro- 
gram Line Editor (FLH), entre 
autres, ne fonctionne plus : lors 
de 1 edition des lignes par Ctrl-E, 
un message d'erreur s'ajoute 
apres la demure instruction. 

Le patch suivant, incorporc au 
programme Basic qui lance PLE, 
rcsoud lc probleme : 



PLE 
sur V Apple lie 

Yvan Koenig 



5 YK - PEEK (175) + 256 
* PEEK (176) - 1196 

6 IF PEEK (64448) = 
THEN POKE YK, 170 : 
POKE YK + 4, 254 

7 IF PEEK (6444 8) - 224 
THEN POKE YK, 164 : 
POKE YK + 4, 254 



La ligne 5 determine l'adresse du 
patch. La ligne 6 s'execute si on 
se trouve effectivement sur un lie. 
La ligne 7 est dun usage plus 
personnel : j'ai modifie la ROM 
du kit de transformation lie en lie 
afin de beneficier du mini- 
assembler, d'un desassembleur 
qui connait les nouveaux codes du 
65C02 et de la basse resolution 80 
colonncs ; tout ccla au prix de la 
perte de Tauto-test. Les lecteurs 
peuvent me contacter a ce sujet & 
l'adresse suivante : 
Yvan Koenig - 4, rue du Stade 
06220 Vallauris 
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Cette routine, en langa- 
gc machine, est desti- 
nee a etre integree 
dans un programme 
principal (en Basic) afin de faire 
defiler un texte sur l'ecran, dans 
des conditions peu courantes. 
Une chaine alphanumerique (de 
255 caracteres au maximum) etant 
definie par le programme Basic, 
ccttc routine transform e les 
caracteres de la chaine en lettres 
geantes (1 caractere =16 lignes 
de 12 colonnes) dans la page 
graphique haute resolution 1. 
Cette visualisation s'accompagne 
d'un defilement de tous les 
caracteres, depuis le premier 
caractere apparaissant a droite de 
l'ecran jusqu'au dernier dispa- 
raissant a gauche. 

Utilisation dans un 
programme Basic 

Precautions 

Pour eviter tout conflit de me- 
moire entre le Basic, la page 
graphique haute resolution 1 et la 
routine en langage machine, il est 
souhaitable de charger le Basic 
(par exemple) au-dessus de la 
page graphique : c'est-S-dire <1 
partir de 16384 ($4000). Sous 
DOS 3.3, cela laisse environ 21 
Ko dc librc pour lc Basic ct scs 
variables. On pent obtenir ce 
resultat de deux famous : 

• il faut entrer au clavier 
POKE 103,1 
POKE 104,64 

POKE 16384,0 puis RUNer le 
programme Basic ; 

• ou alors, il faut ecrire un petit 
programme Basic qui lancera lc 
programme Basic principal. On 
peut prendre comme exemple 
le programme de demonstra- 
tion DEHLh.DEMO. LANCE 
qui lance le programme princi- 
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pal DEFILE.DEMO.PROG. II 
suffit dc le reproduirc cn 
mettant le nom de son propre 
programme Basic a la ligne 
100. 

Mode d'emploi 

Le programme Basic devra, des 
le debut, contenir la ligne 
suivante (les numeros de lignes 
sont donnes a titre indicatif) : 

100 PRINT CHR$(4); "BLOAD 
PARAMETRES+DEFILE.OBJ0" 

L'objet de cette ligne est de 
charger en memoire la routine en 
langage machine. 

Le defilement du texte se faisant 
en page graphique haute resolu- 
tion 1, il peut etre interessant 
d'affichcr un dessin (fixe) cn plus 
du texte qui defile. 11 faut alors 
charger en memoire une page 
graphique deja existante sur la 
disquette (pour cela ajoutez la 
ligne suivante) : 

200 PRINT CHR$(4); "BLOAD 
nom page graphique,A8192" 

11 est aussi possible de realiser le 
dessin a l'aide des instructions 
graphiques du Basic (HPLOT, 
etc.). 

II faut ensuite regler la tabulation 
verticale de la phrase qui va 
defiler : la page haute resolution 
contient 192 lignes (numerotees 
de a 191), les caracteres 
utilisent 16 lignes. II faut aj outer : 

210 POKE 251.V 

avee V compris cntrc (haut de 

l'ecran) et 176 (has de l'ecran). 

La chaine alphanumerique qui va 

defiler doit etre mise dans la 

variable IPS : 

220 IP$= U .. .phrase..." 

ou 

220 INPUT IP$ 



/II 



put i 



Patrick Quettier 



Tous les caracteres de code 
ASCII 32 a 127 sont acceptes : 
cela correspond au jeu de 96 
caracteres de 1' Apple He (ou lie) 
en mode AZERTY. 

Si la page graphique n'est pas 
encore affichee & l'ecran, il faut la 
commuter : plusieurs methodes 
sont possibles, en voici une qui 
n'efface pas le contemi dc la page 
et l'affiche dans son integralite 
(192 lignes). 

230 POKE 49239,0:POKE 492 
36,0:POKE49234,0;POKE 492 
32,0 

Le lancement de la routine se fait 

par : 

240 CALL 4736 

Cette instruction fait defiler la 
chaine IPS une sculc fois, ma is lc 
programme Basic peut la renou- 
veler a plusieurs reprises (la tabu- 
lation et la chaine IP$ ne sont pas 
modifiees). 

En resume 

Voici, comme exemple, un (mini) 
programme qui utilise la routine : 

100 PRINT CHR$(4); "BLOAD 
PAR AMETRES + DEFILE. 
OBJ0" 

200 PRINT CHRJ(4); "BLOAD 
DEFILE.DEMO.PIC, AS 1 
92" 

210 POKE 251,160 

220 INPUT IPS 

230 POKE 49239,0:POKE 

49236,0:POKE 49234,0: 

POKE 49232,0 
240 CALL 4736 

Modifications possibles 

II est possible de modifier la 
vitesse de defilement en ajoutant : 
235 POKE 4960,Y: POKE 4962, 
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X avec X et Y compris entre 1 et 
255. Actuellement, Y=15 et X= 
255. On obticnt aussi de botis 
resultats avec Y=4 et X=l. Cela 
revient a modifier les lignes 187 
et 188 du fichier source DEFILE. 

N-D.L.R, ; la vitesse diminue 
avec X (poids faible) et Y (poids 
fort); (rioter que 0=256). 

II est possible de modifier le 
fichier PARAMETRES+DEFILE 
.OBJO pour obtenir l'affichage 
des caractSres en mode inverse. 
Apres chargement de ce fichier, il 
faut faire : 

110 FOR T=2432 TO 4735: 
POKE T,255 - PEEK(T):NEXT 

Remarque : les effets de deux 

executions successives de cette 

ligne s'annulent. 

On peut aussi choisir de loger la 
routine ^ une autre adresse. Pour 
cela, il faut assembler le fichier 
DEFILE apres avoir mis S la ligne 
18 la nouvelle valeur choisie pour 
DB, puis creer un nouvcau fichier 



sur une disquette : 

BLOAD DEFILE.OBJ0 

fnouveau) 
BLOAD P ARAM ETRES , AX 

avec X=DB-2688 
BSAVE PARAMETRES+ 

DEFILE.OBJ0, AX, L2922 

Details des 
programmes 

DEFILE est le fichier source en 
assembleur ToolKit. 

DEFILE.OBJ0 est le fichier objet 
de DEFILE. 

adresse de debut : 4736 ($1280) 
adresse defin: 4975 ($136F) 
longueur : 240 octets 

PARAMETRES est le bloc de 
paramctres utilise par DEFILE. 
OBJO. 

adresse de debut : 2048 (S0800) 
adresse defin : 4735 (SI 27F) 
longueur : 2688 octets 

PARAMETRES+DEFILE.OBJ0 
reunit les 2 fichiers precedents. 



adresse de debut : 2048 ($0800) 
adresse de fin ; 4975 (S136F) 
longueur : 2928 octets 

Remarque ; e'esi le seul fichier 
qui soit necessaire pour utiliser la 
routine & partir d'un programme 
Basic (dans les conditions 
standard). 

DFFILE. DEMO. PROG est im 
programme de demonstration en 
Basic (attention, il ne faut pas le 
RUNer directement !). 

DEF1LE.DEMO.LANCE est le 
petit programme Basic quil faut 
RUNer pour obtenir une 
demonstration. 

SHIFT+ONERR : routines utili- 
sees par le programme de de- 
monstration. 

DEFILE.DEMO.PIC : page gra- 
ph ique haute resolution utiliscc 
par le programme de demons- 
tration (ne figure pas sur la 
disquette). 



Programme 

DEFIL E. DEMO. L A NCE 

10 REM ********************************* 

20 REM * * 
30 REM * Animation graphique - Demo * 
40 REM * * 
50 REM * La n cement * 

60 REM * * 
70 REM ********************************* 

80 TEXT : HOME 

90 POKE 103,1; POKE 104, 64: POKE 16384,0 
100 PR INT CHR $ (4) ;"R UN DEFILE . DEMO . PRO 
G" 

Programme 

DEFILE. DEMO. PROG 

1 REM ********************************* 
20 REM * * 
30 REM * Animation graphique - Demo * 
40 REM * * 
50 REM ^Patrick QUETTIER - 76190 Yvetot* 
60 REM * * 
7 REM ********************************* 
80 GOSUB 230: REM Initialisation 
90 GOSUB 160: ON CH% GOSUB 300 , 3b , 400 , 1 



00: GOTO 90: REM Menu 
100 POKE 216,0: PRINT : POP : PRINT D$"P 

R§6": REM Fin - CH%=4 
110 REM ******************************** 
120 REM Attente clavier 

130 VTAB 24: PRINT " Appuyer sur une tou 
Che pour continuer"; : VTAB 2: CALL B 
E%: POKE KK%,0: WAIT KE%, 128: HOME : 
RETURN 

140 REM ******************************** 
150 REM Menu (CH%-1 a 4) 

160 HOME i HTAB 9: INVERSE : PRINT LEFT 
$ (T?,23): HTAB 9: PRINT "*" SPC ( 21 
HTAB 9: PRINT "* ANIMATION GRA 
PHIQUE *" 

170 HTAB 9: PRINT "*" SPC( 21)"*": HTAB 
9 : PRINT LEFT$ (T$, 23} : NORMAL 

18&+VTAB 10: PRINT T$: PRINT " 1 - Demon 
St rat ion": PRINT : PRINT " 2 - Demon 
stration (bis)": PRINT : PRINT ■ 3 - 
Mode d ' empl oi n 

190 PRINT : PRINT " 4 - Fin": PRINT t PR 
INT T$: VTAB 24: PRINT SPC ( 8) "Appu 
yer sur 1, 2, 3 ou 4";: CALL BE% : PO 
KE KK%, 

200 WAIT KE%,128: POKE KK%,0:CH% = PEEK 
(KE%) - 48: ON (CH% < 1 OR CH% > 4) 
GOTO 200: HOME : RETURN 
210 REM ******************************** 
220 REM Initialisation 



60 
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230 ONERR GOTO 610 

240 U$ m CHR$ (4):BE% = ' 1052:KK% = 

- 16368:KE% - - 16384:T$ = ******** 
********************************* ",-G 

$ = CHR$ (34) 

250 PRINT D$"BLOAD PARAMETRES -^DEFILE . OBJ 
0": PRINT D$"BLOAD DEFILE .DEMO. PIC, A 
8192": PRINT D$ "BLOAD SHIFT+ONERR" 

260 IF PEEK (64435) = 234 THEN CALL 76 
8: REM On peut supprimer cette llg 
ne pour un Apple XI+ avec ROM LC 

270 RETURN 

280 REM *****************************^** 

230 REM Demonstration - C/J-W 

300 IP$ = "": FOR T = 32 TO 127:IP$ m IP 
$ + CHR$ (T) : NEXT 

310 IP$ - * Animation Craphiquc par 
Patrick QUETTIER - Une ligne de 255 
caract&res max! peut d&filer uoirune a 
ctu&llemcnt - Voici tous les caracte 
res disponibles: " f IPS f " * *" 

320 POKE 49239,0: POKE 49236,0: POKE 492 
34,0: POKE 49232,0: POKE 251,160: CA 
LL 4736: CALL 4736: POKE 49233,0: RE 
TURN 

330 REM ******************************** 
340 REM Demonstration (bis) - CH%=2 
350 POKE 49239,0: POKE 49236,0: POKE 492 
35,0: POKE 49232,0: VTAB 21: PRINT " 
Introduisez une phrase quelconque:" 
360 VTAB 22: INPUT " n ;IP$: IF IP$ = "" G 
0T0 360 

370 POKE 251,130: CALL 4736: CALL 4736: 

POKE 49233,0: RETURN 
380 REM ******************************** 

390 REM Mode d'emploi - CH%=3 

400 PRINT SPC( 14)"G6n6ralit6s": VTAB 4 
: PRINT "La routine permettant de fa 
ire de 1 ' ani-mation graphiquti, &st d 
cstincc a ctre incorporee a votre 
programme basic. "; 

410 PRINT "Poureviter tout confliL cie m& 
moire entrc 1c basic, la page graphi 
que et la routine en langage machin 
e, votre programme" 

420 PRINT "basic devra etre charge (par 
exemple) audessus de la page graphiq 
ue haute r6so- lution 1:" 

430 PRINT ! PRINT "Au clavier, il faut f 
aire:": PRINT " POKE 1Q3,1:P0KE 104 
, 64: POKE 16384,0 RUN Programme b 

asic" 

440 PRINT : PRINT "Ou il faut ecrire un 
petit programme basic qui lanccra 

le programme basic principal:": 
PRINT " 10 POKE 103,1:POKE 104, 64:P 
OKE 16384, 20 PRINT CHR$ (4) ; "G$"RU 
N Programme hasic"G$ 

450 GOSUB 130: PRINT " Initialisation pa 



r le programme basic': VTA= : P&OKl 
"Votre programme basic de*x<* camper 

ter, des le dSbut, une lign&: 9 
460 PRINT : PRINT : PRINT "100 PRINT CER 

$ (4) ; "G$ "BLOAD PARAMETRES +DEFZ - 1 

.OBJ0"G$: PRINT 
470 PRINT : PRINT "Le iichier PARAMETRES 

+DEFILE.OBJ0 con- tient 1' integral! 

t6 de la routine gra- phique (=lang 

age machine)": GOSUB 130 
480 PRINT " Utilisation par le program 

me basic": VTAB 5: PRINT "Commencer 

par charger une page graphiquehaute 

resolution (d£j£ exiotantc) a pa 

rtir d'une disquette :" 
490 PRINT : PRINT "200 PRINT CHR$(4);"G$ 

"BLOAD Page gxaphique, A8192"G$ 
500 PRINT : PRINT "On peut aussi realise 

l un dessin avec les instructions 

graphiques du basic (HP LOT etc. . . 

)" 

510 PRINT : PRINT : PRINT "Regler la tab 
ulation verticale de la ligne i f 
aire defiler:": PRINT : PRINT "210 P 
OKE 251,0 (haut Scran) i 176 (bas 
ecran) ": GOSUB 130 

520 VTAB 3: PRINT "Mettre dans la variab 
le alphanumerique IP$ la phrase que 
l'on veut faire defiler:": PR 

INT : PRINT " 220 IP$="G$"Bonjour" 
G$: PRINT "ou 220 INPUT IP$" 

530 PRINT : PRINT ; PRINT "Commuter la p 
age graphlque a" l'6cran:": PRINT : P 
RINT * 230 POKE 49239, 0:POKE 49236 
,0:POKE 49 234,0: POKE 49232,0" 

540 PRINT : PRINT : PRINT "Puis lancer 1 
o ddfilcmcnt:": PRINT : PRINT " 24 
CALL 4736": GOSUB 130 

550 PRINT SPC ( 15) "En resume": VTAB 4: 
PRINT "Voici, comme exemple, un (min 
i) program-me qui utilise la routine 

m " 

560 PRINT : PRINT : PRINT "100 PRINT CHR 
$ (4) ; "G$ "BLOAD PARAMETRES +DEF I LE 
.OBJ0"G$: PRINT 

570 PRINT "200 PRINT CHR$ (4) ; n G$ "BLOAD D 
EFILE. DEMO. PIC ,A8192"G$: PRINT : 
PRINT "210 POKE 251,160" 

580 PRINT : PRINT "220 INPUT IP$" : PRINT 
: PRINT "230 POKE 49239,0: POKE 4923 
6,0:POKE 49234 , :POKE 49232, 0": 
PRINT 2 PRINT "240 CALL 4736": GOTO 
130 

' 5 90 REM ******************************** 
600 REM Trait ement de ONERR GOTO 
610 CALL 843 :E = PEEK (222) : IF E = 255 

THEN RESUME 
620 HOME ; VTAB 10: PRINT "Erreur de cod 
e "E " £ la ligne " PEEK (218) t PEE 
K (219) * 256: END 



Pom's n° 21 



Source DEFILE 


59 
60 




STX 


ADRIP 






(Assembleur DOS TOOL-KIT) 


61 
62 




LDA 
STA 


§0 

POINTE 


*POTNTF.*0 










63 


















64 


LBL14 


LDY 


POINTE 


*Rentre les LONG car 


1 


* 






65 




LDA 


(ADRIP) , Y 


'de IPS de POINTE-0 


2 


*****fl«*A4lt**MAMM ****** 


66 




AND 


§127 


*a LOm-1 


3 


* 




• 


67 




JSR 


RENTRE 




j. 
H 


- ANIMATION 


GRAPH I QUE ' 


68 




INC 


POINTE 




c 


* 




* 


69 




LDA 


POINTE 




6 


* Pa trie* QUETTIER 


70 




CMP 


LONG 




7 


* 76190 Yvetot * 


71 




BNE 


LBL14 




O 

o 


* 






72 


• 








9 


*********************** 


73 




LDA 


024 


*POINTE=24 espaces 


10 


■t 






14 




STA 


POINTE 


'pour finir la ligne 


11 






4736 $12.90 


75 


LBL15 


LDA 


932 




12 


'Fin: 




49/5 $13. 6f 


76 




JSR 


RENTRE 




1 J 


* Longueur : 


240 $00. FO 


77 




DEC 


POINTE 




14 


* 






78 




BNE 


LBL15 




15 


it t I i n i i r t * * » i x * . ^ . * »» A 


79 




RTS 




*FIN retour basic 


1 6 


'Variatiles ut ilisees par le programme 


80 


* 








17 


* 






81 


A A A A AAA 


************************************ 


18 


DB 


EQU 


4736 'Assemble a cette adresse 


8? 


* Rent re 


le car de code 


ASCII A* decale de 1 


19 


HAVT 


EQU 


251 "1-Tab. vert. haut Cexte 


83 


'colonnes vers la gauche 


20 


HAUT1 6 


EQU 


253 '1-HAVT1 6=HAUT+1 6 


84 










21 


NCR 


EQU 


254 '2-Adrler octet ligne HGR 


85 


REN THE 


CMP 


932 


'N'afficht: pas un ca 


22 


0CTET1 


EQU 


252 *1-Partie haute col carac 


86 




BCC 


LBL16 


*de controle f<32) 


23 


OCTETS 


EQU 


250 * 1-Partic basso col carac 


87 




SEC 




*ASCII=A-32 


24 


CARAC 


EQU 


249 "1-Compteur 12 col carac 


88 




SBC 


032 




25 


ASCII 


EQU 


235 "2-Adr definition carac 


89 




STA 


ASCII 




2o 


ASCI I 12 


EQU 


23 7 '2 -ASCII 1 2= ASCI 1+1 2 
• 


90 


* 








27 


LOMEM 


EQU 


JOS *2-Dcbut zone donnees nvtn 


91 




LDA 


90 


*A5CII=24 'ASCII 


la 


LONG 


EQU 


239 '1-Lonqu de la chaine IP$ 


92 




LDX 


§9 




29 


POINTE 


EQU 


215 "1-Comptcur carjc IP$ 


93 




LSR 


ASCII 




30 


ADR IP 


EQU 


206 "2-Adressage ind pour IP$ 


94 


LBL8 


BCC 


LBL9 




31 


ADRESSE 


EQU 


DB 2689 "Bloc de parametre3 


9b 




CLC 






32 
33 


* 






96 




ADC 


024 










91 


LBL9 


HUH 


A 




"J A 

34 




ORG 


DB "Adresse d' assemblage 


98 




ROR 


ASCII 




35 


* 






99 




DEX 






i f 

JO 


********************************************* 


100 




BNE 


LBL8 




37 


"Arrives du 


Basic apres reglage IIAUT eC IPS 


1 01 




STA 


ASCI 1+1 




38 


A 






102 


* 








1 Q 
J » 




LDA 


HAUT "HAUT1 6=llAUT+l C 


103 




LDA 


ASCII 


*ASC=ASC+ADRESSE+38 4 


40 




CMP 


9171 


1 04 




CLC 




*adr ler octet de la 


41 




BCC 


TOTO 


105 




ADC 


0>ADRESSE+384 


A "5 

MS 




JMP 


SE199 "Illegal quantity er 


106 




STA 


ASCII 


*"matrice" du car 


M -3 

43 


roro 


ADC 


016 


107 




LDA 


ASCII +1 




A A 




STA 


HAUT 16 


108 




ADC 


9<ADRESSE+384 


A C 

H J 


* 






109 




STA 


ASCI 1 +1 








.7.9/? 


CUF.PCtiF. 


110 


• 








4 f 




LDY 


§2 w long= longueur IP$ 


111 




STA 


ASC1I12+1 


*ASCII12=ASCII+12 


48 




LDA 


(ADRIP) , y 


112 




LDA 


ASCII 




A 13 




5TA 


LONG 


113 




CLC 






cr\ 




BNE 


LBL13 


114 




ADC 


912 




Dl 




RTS 


"FIN retour basic 


115 




STA 


ASCI I 12 




52 


* 






116 




BCC 


LBL4 




53 


LB LI 3 


INY 




1 7 7 




TNC 


ASCII 12+1 




54 




LDA 


(ADRIP) , Y 


118 










55 




TAX 




119 


LBL4 


LDA 


90 


*CARAC=0 (comp des 1 


56 




INY 




120 




STA 


CARAC 


"colonnes du car) 


57 




LDA 


(ADRIP) , Y 


121 


LBL7 


LDY 


CARAC 


'octet haut nnJntine 


59 




STA 


ADRIP+1 


122 




LDA 


(ascii) ,r 





62 



Pom's n°21 



12 3 




STA 


0CTET1 


124 




t.da 


(ASCTT12) , Y 


125 




STA 


0CTET2 *et 1 'octet has 


126 




JSR 


dpo tgau *n£fin col a gauche 


127 




INC 


CARAC *CARAC=CARAC+1 


128 




LDA 


CARAC ^"continue pour 12 col 


J 7 Q 




CMP 


012 *cfu caractere 


2 5"0 




BNE 


LBL7 


2J1 


LBL16 


RTS 




132 


* 






133 


***** ************** *********,****** ********** 


134 


*Cherche la 


variable IP$ 


135 


* 






136 


CHERCHE 


LDA 


LOMEM *0n commence a LOMEM 


137 




STA 


ADR IP 


130 




LDA 


LOMEM 1 1 


139 




STA 


ADRIP+1 


140 


* 






141 


LBL10 


LDY 


90 


142 




LDA 


973 *ler octet:"!" ? 


143 
j " -j 




CMP 


(ADRIP) , Y 


144 




BNE 


LBL11 


145 




INY 




14 6 




LDA 


9208 *0ui-2eme QQtet;"P" ? 


147 




CMP 


(ADRIP) , Y 


148 




BEO 


LBL12 


149 


* 






150 


LBL11 


CLC 


*Nun r ajout& 7 


7.57 




LDA 


ADRIP 


152 




ADC 


#7 


153 




STA 


ADRIP 


154 




BCC 


LBL10 


155 




TNC 


ADRTP+1 


156 




JMP 


LBL10 



757 * 

158 LBL12 RTS *J?esulCdL Uans ADRIP 

159 * 



Re 








Ul 




Ik 






08EQ- 


00 


00 


00 


00 


00 





00 


00 




CI 


m 






a 




m 


} 


Q8E8- 


80 


80 


80 


80 


Sfl 


8? 


80 


80 


PA RAMETRES 


08F0- 
08F8- 


00 
80 


00 
80 


00 
ao 


00 

80 


00 

80 


00 

80 


00 
SO 


00 
80 




















0900- 


28 


28 


28 


28 


28 


28 


28 


28 


08 00- 


20 


24 


28 


2C 


30 


J4 


JO 


3C 


0906 


A8 


A8 


AS 


AO 


A8 


AS 


AS 


AS 


08 08- 


20 


24 


28 


2C 


30 


34 


38 


3C 


0910- 


28 


28 


28 


28 


28 


28 


20 


28 


0810- 


21 


25 


29 


2D 


31 


35 


39 


3D 


0916- 


AS 


AS 


AS 


AS 


AS 


AS 


AS 


AS 


0818- 


21 


25 


29 


20 


31 


35 


39 


3D 


0920' 


28 


28 


28 


28 


28 


28 


28 


28 


0820- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


0928- 


AS 


AS 


AB 


A8 


A8 


A8 


AS 


AB 


0828- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


0930- 


28 


28 


28 


28 


28 


28 


2$ 


28 


08 30- 


23 


27 


PR 


2F 


33 


■?7 


3R 


3F 


0938- 


A8 


A8 


A8 


A8 


A8 


A3 


A8 


A8 


0838- 


23 


27 


2B 


2F 


33 


37 


3B 


3F 


0940- 


50 


50 


50 


50 


50 


SO 


50 


t: 


08 40- 


20 


24 


28 


2C 


30 


34 


33 


3C 


0948- 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


08 48 


20 


24 


28 


2C 


30 


34 


36 


3C 


0950- 


50 


SO 


50 


50 


50 


50 


50 


50 


0850- 


21 


23 


29 


ZD 


31 


35 


39 


3D 


0959- 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


0858- 


21 


25 


29 


2D 


31 


35 


39 


3D 


096O- 


50 


50 


SO 


SO 


SO 


SO 


SO 


SO 


08 60- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


0968- 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


DO 


08 68- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


0970- 


50 


50 


50 


50 


50 


50 


50 


50 


08 70- 


23 


27 


2B 


2F 


33 


37 


3d 


3F 


0978- 


DO 


DO 


DO 


DO 


oo 


DO 


DO 


DO 


08 78- 


23 


27 


2B 


2F 


33 


37 


3B 


3F 


0980- 


00 


00 


00 


00 


00 


00 


00 


00 


0880- 


20 


24 


28 


2C 


30 


34 


33 


3C 


0988- 


00 


00 


00 


00 


00 


00 


00 


00 


0888- 


20 


24 


28 


2C 


30 


34 


38 


3C 


099O- 


00 


00 


00 


00 


00 


00 


00 


00 


0890- 


21 


25 


29 


2D 


31 


35 


39 


3D 


0998- 


00 


00 


00 


00 


00 


FF 


FF 


00 


0898- 


21 


25 


29 


2D 


31 


3$ 


39 


3D 


09AO- 


00 


00 


OQ 


00 


00 


OO 


00 


00 


08 AO- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


09AS- 


00 


33 


33 


00 


00 


00 


00 


00 


08A8- 


22 


26 


2A 


2E 


32 


36 


3A 


3E 


09BO- 


00 


00 


00 


OF 


OF 


00 


00 


OF 


08B0- 


23 


27 


2B 


2? 


33 


37 


3B 


St 


09B8- 


OF 


00 


00 


00 


00 


00 


00 


OO 


0BB8- 


23 


27 


29 


2? 


33 


37 


3B 


3F 


09CO- 


00 


00 


00 


00 


00 


00 


oo 


oo 


Q8C0- 


00 


00 


00 


00 


00 


00 


00 


00 


09CS- 


00 


CO 


CO 


t'C 


fe 


C7 


C3 


C3 


08C8- 


80 


80 


80 


80 


80 


80 


80 


80 


09DV- 


Of 


OE 


OC 


00 


00 


OC 


18 


IF 


08D0- 


00 


00 


00 


00 


QC 


00 


00 


00 


09D8- 


3F 


30 


30 


30 


39 


1C 


oc 


00 


08D8- 


80 


80 


80 


80 


80 


80 


80 


80 


09EO- 


00 


00 


78 


FC 


cc 


FF 


FF 


cc 



161 A FaiL Oe£ilVl 16 li (HAUT <a HAUT1G-1) f d'une 
16? "colonne vers la gauche 



7 fil 
x □ 


A. 








7 64 


DROTGAU 


LDX 


HAUT 


*X=tab verticale=HAUT 


1 65 




CLV 




'Didp&au V=0 


1 66 

i ii ij 


* 








i o f 


J-iUJ—iU 




ADRESSE, X 


*HGR=ctij£ visL 1 en 0,X 


169 










1 69 




LDA 


ADRESSE+ 1 92, X 


7 70 




STA 


HGR 




7 77 


* 








7 7? 




ROR 


OCTET 2 


•car a entrer en 


1 73 




ROR 


OCTET1 




1 74 




LDY 


39 


*Y=tah horiz=39 a 


± l ~s 


jr 








1 76 


LBL1 


LDA 


(HGR) r Y 


*A=contenu oct en Y, X 


177 




BCC 


LBL2 


'Met retenue en MSB A 


1 78 




ORA 


§128 


*Cas 1 


179 




BVC 


LBL3 


"Toujouis pzlti 


180 


LBL2 


AND 


§127 


*£:& $ o 


1H1 


LtiL-3 


LSR 


A 


'DGcalage droite 


182 




STA 


(HGR), Y 


*A dans octet (Y r X) 


183 




DSY 






184 




BPL 


LBL1 


*meme ligne Y=39 A 


185 




1NX 




*X=X+1 


186 




CPX 


HAUT 16 


*pour lignes X=HAUT 


187 


* 


BNE 


LBLU 


*a HAUT16-1 


199 
189 




hPY 




"Temporisation 


1 90 


LBL6 


LDX 


t$FF 




191 


LBLS 


DEX 






192 




BNE 


LBLS 




193 




DEY 






194 




BNE 


LBL6 




195 




RTS 






196 


* 









797 a-*******************************-************ 



09E8- 


cc 


ac 


00 


00 


00 


00 


oc 


oc 


OAFO- 


OF 


03 


■j: 


00 


00 


00 


30 


3C 


09F0- 


QC 


3F 


3F 


oc 


BP 


07 


OQ 


00 


0AF8- 


OF 


03 


00 


00 


QO 


QO 


00 


OO 


09F8- 


00 


OE 


IF 


IB 


IF 


CE 


FO 


3C 


OBOO- 


OG 


FC 


FE 


07 


03 


C3 


F3 


3F 


OAOO- 


OF 


03 


00 


00 


00 


00 


30 


3C 


OR08- 


OF 


FE 


FC 


00 


00 


OF 


IF 


3C 


OAGK- 


OF 


03 


1C 


3R 


36 


3E 


1C 


00 


0B10- 


3F 


33 


30 


30 


38 


IF 


OF 


00 


0A1O- 


00 


00 


9E 


FF 


E3 


F3 


3P 


IE 


0B18- 


00 


00 


00 


06 


06 


FF 


FF 


OO 


0A19- 


00 


00 


00 


00 


00 


IF 


3P 


31 


0B20- 


00 


00 


OO 


00 


00 


QO 


00 


30 


0A20- 


30 


31 


ID 


OB 


1C 


3E 


33 


00 


0B28- 


30 


3F 


3F 


30 


JO 


00 


00 


OO 


0A28- 


00 


70 


00 


00 


26 


3t 


IF 


QE 


0B30- 


00 


JC 


IE 


07 


03 


03 


83 


C3 


UA3V- 


00 


00 


00 


00 


00 


00 


00 


00 


OB 38- 


E/ 


is 


3C 


00 


00 


30 


38 


3C 


0A38- 


00 


00 


OO 


00 


00 


00 


00 


00 


QB4Q- 


:F 


37 


33 


31 


3Q 


30 


30 


00 


GA40- 


00 


00 


oo 


00 


FC 


FE 


03 


01 


0B48- 


00 


oc 


OE 


07 


C3 


C3 


C3 


C3 


0A4B- 


00 


00 


oo 


00 


00 


00 


oc 


OQ 


0B5Q- 


E7 


FE 


3C 


00 


00 


OC 


1C 


38 


0A50- 


OF 


IF 


30 


20 


00 


00 


00 


00 


0B58- 


30 


30 


30 


30 


39 


IF 


OF 


00 


0A5B- 


00 


00 


00 


00 


01 


03 


FE 


FC 




00 


CO 


Ptfl 


70 


38 


1C 


OE 


FF 


0A6O- 


00 


00 


oo 


00 


00 


00 


00 


00 


0968- 


PF 


00 


00 


00 


00 


03 


03 


03 


0A68- 


20 


30 


IF 


OF 


00 


00 


00 


00 


00 70 


03 


03 


03 


3F 


3F 


03 


03 


OO 


0A7O- 


00 


10 


30 


60 


CO 


FB 


F8 


CO 


0B78- 


00 


7F 


7F 


63 


63 


63 


63 


63 


0A78- 


60 


30 


10 


00 


00 


11 


19 


00 


0B80- 


S3 


C3 


83 


00 


OO 


OC 


1C 


38 


QA8Q- 


07 


3F 


3F 


07 


00 


19 


11 


00 


0B88- 


JO 


30 


30 


30 


38 


IF 


OF 


00 


0A88- 


00 


00 


00 


OQ 


00 


FO 


FO 


00 


0B90- 


00 


FC 


FE 


87 


C3 


C3 


C3 


C3 


0A90- 


00 


00 


00 


00 


00 


03 


03 


03 


0B98- 


C7 


8E 


OC 


00 


00 


OF 


IF 


39 


0A98- 


Q3 


3F 


3F 


03 


03 


03 


03 


OQ 


OBAO- 


30 


30 


30 


30 


39 


IF 


OF 


00 


OAAO- 


00 


00 


00 


00 


00 


00 


00 


OO 


0BA8- 


00 


03 


03 


03 


83 


C3 


E3 


73 


0AA8- 


00 


00 


no 


00 


00 


00 


00 


00 


OflSO- 


3B 


IF 


OF 


00 


00 


00 


00 


3F 


OABO- 


98 


FC 


7C 


38 


00 


00 


00 


00 


0BB8- 


3F 


01 


DC 


00 


■DO 


00 


00 


00 


OADO- 


00 


00 


OQ 


00 


00 


OO 


CO 


00 


OBCQ- 


00 


3C 


FB 


B7 


C3 


C3 


C3 


CJ 


OACO- 


00 


00 


00 


00 


00 


00 


00 


03 


0BC8- 


E? 


FE 


3G 


00 


00 


OF 


IF 


39 


0AC9- 


03 


03 


OJ 


03 


00 


00 


00 


: o 


OBDO- 


30 


30 


30 


30 


39 


IF 


OF 


00 


OADO- 


00 


00 


00 


00 


00 


00 


00 


00 


QBU8~ 


00 


3C 


7£ 


E7 


C3 


cj 


C3 


C3 


0AD8- 


00 


00 


00 


00 


00 


00 


00 


00 


OBEO- 


67 


FE 


t't: 


00 


00 


OC 


IE 


38 


OAEO- 


38 


38 


38 


00 


00 


00 


06 


00 


0BE8- 


30 


30 


30 


30 


38 


IF 


OF 


OO 


0AE9- 


00 


3 


00 


00 


00 


CO 


FO 


3C 


OBFO- 


00 


00 


00 


00 


EC 


EO 


BO 


OO 



Pom's n° 21 



63 



oore- oo oo oo oo oo oo oo oo 

0C0O- JO jt j 6 00 OO OO OO OO 
QCQ8- OO 00 OO OO EO EO EO 00 
QCIO- OO 00 00 OO 00 00 00 00 
0C18- BB F8 78 OO 00 OO 00 00 
OC20- 00 00 OO 00 60 CO 60 30 
OC28- io oo an no nn on no 03 

0C3O- 07 OC 10 30 20 OO OO OO 
OC3S- oo oo CO CO CO CO CO CO 
QC4Q- CO CO 00 OO 00 00 OG OC 
0C4B- OC OC OC OC OC OC OO OO 
OC50- OO OO OO 10 30 <60 CO 80 
OC3B- OO OO OO OO 00 OO OO 20 

veto- jo 18 oc or 03 OO OO 00 
0C68- 00 OC OE 0? 03 83 C3 C3 
0C7O- E7 7E 3C 00 00 OO OO 00 
0C78- 00 33 33 00 00 00 00 00 
0C80- 00 CO EO 70 31 33 36 34 
0C88- FO FQ OO OO OO OF IF 1J» 
0C9O- 30 30 30 Iff 3F 3F OO OO 
OC9B- OO FO FB 1C OE 07 07 OE 
0CA0- 1C FB FO OO OO 3F 3F 03 
OCAB- 03 03 03 03 03 3F 3F 00 
0CBO- 00 FF FF C3 C3 CJ CJ CJ 
0CB8- B7 BE 1C 00 00 3F 3F 30 
0CCO- 30 30 30 30 39 IF OF 00 
0CC8- 00 FC FE 07 03 03 03 03 
0CDO- 07 OE OC 00 00 OF IF 38 
0CD8- 30 30 30 30 38 2C OC 00 
OCFfJ- OO FF FF 03 03 03 03 03 
0CE8- 07 FE FC 00 OO 3F 3F 30 
OCFO- 30 30 30 30 33 IF OF OO 
OCFB- 00 FF FF C3 C3 CJ C3 C3 
ODOO- C3 CJ 03 OO 00 3F 3F 30 
0UQ8- 30 30 30 30 30 30 JO 00 
OOIU- 00 FF FF C3 CJ CJ CJ CJ 
0D18- C3 C3 03 00 00 3F 3F 00 
0D20- 00 00 00 00 CO 00 00 00 
0D28- 00 FC FE 07 03 03 83 83 
0D3Q- 87 BE 8C 00 00 OF IF 38 
0D38- 30 30 31 31 31 3F 3F 00 
QD40- 00 FF FF CO CO CO CO CO 
0D4B- CO FF FF OO CO 3F 3F OO 
QD50- 00 00 00 00 GO 3F 3F 00 
0D58- OO 00 00 00 03 FF FF 03 
VUbV- 00 00 OO 00 00 00 00 00 
0D68- 30 3F 3F 30 00 00 00 00 
0070- 00 00 00 03 03 03 03 FF 
0D78- FF 03 03 00 00 OE IE 38 
0D80- 30 30 38 IF OF 00 00 00 
DD88- 00 FF FF EO FO B8 JC OE 
ODOO- 07 03 OO OO OO 3F 3F 00 
0D98- 01 03 07 OE 1C 38 30 00 
ODAO- OO OO FF FF CO OO 00 00 
0OA0- 00 00 OQ 00 00 OO 3F 3F 
QDBO - 30 30 30 30 30 30 OO 00 
UDB&- 00 FF Ft JC tV CO CO FO 
0DC0- 3C FF FF 00 00 3F 3F 00 
0DC8- 00 01 01 00 00 3F 3F OQ 
0DD0- 00 FF FF OF 3C FO CO 00 
0DD8- 00 FF FF 00 00 3F 3F 00 
0DE0- 00 00 03 OF 3C 3F 3F 00 

ODES- OO FC FE 07 03 03 03 03 

0DF0- 07 FE FC OO 00 OF IF 3B 

ODFB 30 30 30 30 38 IF OF 00 

OEOO- 00 FF FF B3 83 63 63 63 

OE08- C7 FE 7C OO 00 3F 3F 01 



0510- 


01 


01 


91 


01 


01 


00 


CO 


00 


0E18- 


oo 


FC 


tt 


07 


03 


UJ 


OS 


03 


QE2Q- 


07 


FE 


FC 


OO 


00 


OF 


IF 


39 


0E28- 


30 


32 


36 


3E 


1C 


3F 


2F 


CC 


0E3Q- 


00) 


FF 


FF 


83 


83 


83 


83 


83 


0E38- 




:L 


7C 


00 


00 


3F 


3P 


01 


0E4O- 


01 


03 


07 


OF 


:~ 


38 


30 


00 


0E4B- 


oc 


3C 


7E 


E7 


Cj 


C3 


C3 


Cj 


OE50- 


C7 


SB 


CC 


OC 


00 


OC 


1C 


38 


0E58- 


30 


30 


30 


30 


37 


2F 


OF 


CC 


0E6Q- 


OO 


03 


03 


03 




FF 


FF 


03 


0E6B- 


03 


03 


CJ- 


OO 


90 


OO 


00 


90 


0E70- 


OO 


3F 


3i 


OQ 


00 


OO 


. 


00 


0E78- 


OO 


FF 


FF 


oo 


00 




00 


00 


OE80- 


00 


H 


FF 


Dfl 


00 


OF 




38 


0E88- 


30 


30 


30 


30 


38 


IF 


or 


00 


0E90- 


00 


3F 


FF 


CO 


00 


00 


Oc 





0E98- 


CO 


FF 


3F 


00 


D D 


00 


CO 


03 


OEAO- 


OP 


3C 


3C 


OF 


o ? 


co- 


■: Q 


OQ 


0EA8- 


OC 


FF 


FF 


OO 


00 


co 


00 


00 


0EBO- 


OC 


FF 


FF 


oo 


00 


03 


OF 


3C 


OEDB- 


30 


IE 


IS 


30 


3C 


OF 


03 




0ECO- 


00 


OF 


IF 


30 


EO 


CO 


CO 


EO 


0EC8- 


30 


IF 


OF 


00 


00 


3C 


3B 


03 


QEUO- 


01 


00 


OO 


01 


03 


3t 


JC 


00 


0ED8- 


00 


IF 


3F 


75 


EO 


Cj 




BO 


0EEO- 


70 


3F 


IF 


00 


00 


GO 


00 


CC 


0EE8- 


00 


3F 


3F 


00 


00 


c 





00 


0EF0- 


00 


03 


03 


Q 1 


83 


C3 


B3 


73 


0EF8- 


Jfl 


IF 


OF 


00 


OC- 


3C 


3B 


3F 


OFOO- 


33 


31 


30 


30 


in 


30 


10 


oo 


CFGB- 


oo 


OO 


00 


79 


FC 


B4 


84 


FC 


0F10- 


78 


00 


00 


CC 


CC 


CO 





00 


OFIO- 


00 


OO 


oo 


OO 


00 


OC 


OS 


00 


0F20- 


00 


CO 


EO 


70 


30 


30 


3 


30 


QF28- 


70 


60 


40 


OO 


00 


OF 


IF 


38 


OF30- 


FO 


FO 


30 


30 


38 


18 


08 


JO 


0F38- 


00 


00 


CO 


DC 


FE 


33 


21 


El 


0F4O- 


C7 


06 


DC 


CO 


00 


CC 


18 


38 


0F48- 


21 


SI 


33 


IF 


OE 


00 


00 


00 


0F50- 


00 


00 


20 


30 


18 


OC 


OC 


18 


0F5A- 


30 


20 


00 


OC 


DO 


oo 


0: 


00 


OF60- 


00 


00 


DO 


oo 


00 


o 


00 


00 


0F68- 


00 


00 


OO 


00 


OO 


00 




00 


0F7O- 


oo 


OO 


oo 


pc 


18 


28 


19 


IB 


0F78- 


IB 


le 


16 


1G 


16 


IB 


19 


18 


0F60- 


00 


00 


OO 


00 


OE 


IF 


3F 


26 


0t88- 


00 


00 








00 


OO 


00 


00 


OF90- 


:■: 


00 


CO 


90 


00 


OO 


00 


00 


0F98- 


00 


CO 


F.. 


70 


30 


30 


30 


30 


0FAO- 


:-: 


FO 


00 


00 


00 


OF 


IF 


38 


0FA8- 


30 


30 


30 


18 


3F 


3F 


00 


00 


0FBO- 


00 


FF 


FF 


60 


30 




30 


30 


OFBB- 


fC 


EC 


CO 


:■: 


OO 


3F 


3F 


18 


0FCO- 


30 


30 


30 


30 


3S 


IF 


OF 


CO 


OFCB- 


OO 


CO 


EO 


70 


30 


30 


30 


30 


OFDO- 


70 


60 


40 


OO 


OO 


OF 


IF 


38 


otve- 


JO 


30 


30 


30 


38 


18 


18 




0FEO- 


00 


CO 


EO 


70 




30 




30 


0FE8- 


30 


:F 


FF 


00 


00 


OF 


IF 


38 


0FFQ- 


30 


30 


30 


30 


18 


3F 


3F 


00 


0FF8- 


00 


CO 


EO 


70 


30 


30 


30 


30 


1000- 


70 


EO 


CO 


OC 


CC 


OF 


IF 


3B 


1008- 


33 


33 


33 


93 


33 


93 


13 


00 


1010- 


OO 


OO 


€0 


to 


FC 


FE 


f? 


63 


101B 


63 


03 


c: 


00 


OO 


OO 


CC 


00 


1020- 


3F 


3F 


OO 


oo 


00 


00 


00 


00 



1028- 


00 


Of 


t'J 


70 


30 


30 


JU 


jy 


1030- 


70 


FO 


FO 


CC 


00 


03 


C7 


CE 


1038- 


CC 


OC 


CC 


CC 


E6 


7F 


3F 


00 


1040- 


00 


FF 


FF 


60 


30 


30 


30 


70 


1048- 


EO 


CO 


00 


00 


00 


3F 


3F 


00 


1050- 


OO 


00 


00 


00 


3F 


3F 


00 


00 


1058- 


oo 


CC 


00 


OC 


00 


F3 


F3 


00 


1060- 


CO 


00 


CC 


00 


00 


01 


00 


CC 


10 68- 


00 


3F 


5: 


00 


00 


OC 


00 


00 


1070- 


00 


00 


00 


00 


30 


30 


F3 


F3 


1078- 


00 


00 


00 




00 


00 





00 


1080- 


CO 


EO 


7F 


3F 


00 


00 


'JO 


00 


1088- 


CC 


00 


FF 


FF 


00 


80 


CO 


r^' 


10 90- 


30 


10 


00 


00 


00 


CC 


3F 


3F 


1098- 


03 


07 


OC 


20 


30 


20 


GO 


00 


10 AO- 


00 


00 


00 


00 


00 


FF 


FF 


00 


1 0A8- 


DO 


00 


00 


00 


DO 


00 


00 


00 


10BO- 


00 


3F 


3F 


00 


00 


00 


no 


on 


1038- 


oo 


FO 


FO 


2i 


30 


FO 


EO 


30 


10CO- 


30 


FO 


BO 


OO 


00 


3F 


3F 


00 


10C8- 


oo 


3F 


3F 


00 


00 


3F 


3F 


00 


10D0- 


oo 


FO 


FC 


60 


2 j 


30 


3 


70 


1008- 


EO 


CO 


'j 'J 


00 


00 


3F 


3F 


00 


10E0- 


oo 


00 


DO 


00 


3F 


3F 


00 


00 


10E8- 


CC 


CO 


FO 


70 


20 


00 


30 


70 


1QF0- 


EO 


CO 


00 


CO 


00 


OF 


IF 


3B 


10F8- 


30 


30 


30 


38 


IF 


OF 


00 


00 


1100- 


oo 


FO 


FO 


60 


30 


30 


30 


70 


1 1 08- 


- - 


GO 


Bfl 


90 


00 


FF 


FF 


OC 


1110- 


18 


JO 


IB 


JC 


OF 


07 


00 


00 


1118- 


00 


CO 


EO 


70 


30 


30 


30 


60 


1120- 


FO 


FO 


00 


00 


CO 


07 


OF 


1C 


1126- 


18 


19 


16 


OC 


FF 


FF 


00 


00 


1130- 


oo 


00 


FO 


FO 


60 


30 


30 


70 


1138- 


60 


00 


DO 


00 


00 


OC 


3F 


3F 


1140- 


OC 


00 


00 


oo- 


DO 


oo 


00 


00 


1148- 


OC 




EO 


FO 


30 


30 


30 


30 


1150- 


30 


30 


00 


00 


00 


00 


31 


33 


1158- 


33 


33 


33 


33 


3F 


IE 


00 


00 


11 So- 


06 


00 


30 


30 


FE 


FE 


30 


30 


il 68- 


30 


00 


00 


OC 


00 


00 





00 


11 70- 


IF 


3F 


30 


30 


30 


00 


CC 


00 


11 78- 


00 


FO 


FO 


00 


00 


90 


oo 


00 


1180- 


f' 




00 


00 


CO 


OF 


IF 


30 


1168- 


30 


30 


30 


18 


3F 


jy 


00 


GO 


U SQ- 


DO 


JO 


to 


.." 


00 


OQ 


0fi 


00 


ll 98- 


CO 


FO 


30 


00 


00 


00 


DO 


03 


11A0- 


OF 


3C 


JC 


:■- 


03 


00 


00 


00 


11A8- 


DO 


FO 


FO 


00 


00 


00 


CO 


c c 


11B0- 


00 


FO 


FO 


00 


00 


OF 


IF 


JC 


1158- 


18 


OE 


OE 


18 


38 


IF 


OF 


00 


11C0- 


00 


30 


70 


EO 


CO 


or. 


80 


CO 


ncB- 


EO 


70 


30 


00 


00 


30 


38 


1C 


11D0- 


OF 


07 


07 


OF 


1C 


3B 


30 


00 


I1D8- 


: : 


FO 


FO 


00 


00 


00 


CO 


00 


11EO- 


FO 


FO 


00 


00 


00 


C3 


C7 


CE 


: ; _-. c - 


CC 


CC 


CC 


Et 


7F 


3F 


00 


00 


J2F0- 


CO 


30 


30 


30 


JO 


30 


BO 


FO 


IJFfl- 


70 


30 


00 


00 


00 


30 


38 


JC 


2200- 


36 


JO- 


31 


30 


30 


30 


Q 


00 


1208- 


:c 


CO 


EO 


70 


34 


36 


33 


31 


1210' 


70 


EO 


CO 


DO 


00 


OF 


IF 


3B 


12JB- 


33 


33 


33 


33 


33 


33 


33 


CO 


1220- 


00 


FO 


FO 


01 


03 


06 


04 


00 


1228- 


FO 


FO 


OC 


00 


00 


CF 


IF 


38 


1230- 


30 


30 


30 


18 


3F 


3F 


00 


00 


1238- 


00 


CO 


EO 


70 


31 


33 


36 


34 



1240- 


10 


SO 


CO 


00 


OG 


OF 


IF 3B 


1248- 


33 


33 


33 


33 


33 


33 


33 


00 


1250- 


00 


00 


00 


06 


06 


00 


OO 


26 


1258- 


06 


00 


00 


bo 


00 


00 


00 


00 


1260- 


GO 


00 


00 


00 


Q 


00 


t Q 


or. 


1268- 


00 


A8 


5 c 


AB 


50 


A8 


sc 


A9 


1270- 


so 


A8 


00 


00 


00 


2A 


IS 


2A 


1278- 


15 


2A 


15 


2A 


15 


2A 


OC 






Recapitulation 

DEFILE.OBJQ 



1280- 


A5 


FB 


C9 


Bl 


>i" 


03 


4C 


<:> 


1206- 


El 


69 


10 


85 


FD 


20 


17 


13 


1290- 


AO 


02 


Bl 


CE 


SJ 


EF 


DO 


01 


1298- 


vZ 


ca 


Bl 


CE 


AA 


ca 


Bl 


CE 


12AO- 


85 


CF 


86 


CE 


AS 


00 


85 


D7 


12AB- 


A4 


07 


Bl 


CE 


29 


7F 


20 


C7 


12B0- 


12 


E6 


D7 


AS 


' 


CC 


EF 


DO 


12B8- 


EF 


A9 


18 


85 


Dl 


A9 


20 20 


12CQ- 


C7 


12 


ct 


07 


DO 


F7 


60 


CS 


12C8- 


20 


90 


4B 


38 


E9 


20 


So 


EB 


i?nn- 


AQ 


on 


A? 


08 




EB 


90 


03 


12D8- 


18 


69 


IB 


6A 


66 


EB 


CA 


DO 


12EO 


FS 


85 


EC 


AS 


EB 


18 


69 


S'J 


12E8- 


as 


EB 


A5 


EC 


69 


C9 


85 


SC 


12FO- 


65 


EE 


A3 


EB 


19 




OC 


65 


12 1 tt- 


BO 


HO 


02 


E6 


BU 


A9 


00 


85 


1300- 


F9 


A4 


F9 


Bl 


EB 




FC 


Bl 


1308- 


EO 


85 


FA 


20 


3D 


13 


E6 


FS 


1310- 


A5 


F9 


C9 


OC 


00 


EB 


00 


AS 


1318- 


69 


85 


CE 


AS 


SA 


85 


CF AO 


1320- 


00 


A9 


49 


01 


CE 


JC 


07 


J£ 


1328- 


A i 


nn 


ni 


CE 


FO 


05 


18 


AS 


1330- 


CE 


69 


07 


as 


CE 


00 


EB 


B6 


1338- 


CF 


4C 


IF 


13 


60 


A6 


FB 


B8 


1340- 


BD 


OQ 


OG 


B5 


FF 


BD 


CO 


08 


1348- 


B2 


FE 


66 


FA 


66 


FC 


AO 


27 


1350- 


Bl 


FE 


90 


04 


7$ 


80 


50 


02 


U$a- 


£9 


It 


4A 


91 


ft 


00 


iff 


FO 


1360- 


E8 


E4 


F'u 


DO 


OB 


AO 


OF 


A2 


1368- 


FF 


CA 


JO 


FD 


8$ 


j c 


F8 


60 



Recapitulation 

SH1FT+ONERR 



0300- 


AV 


OF 


85 


36 


A9 


03 


85 


37 


0308- 


A9 


00 


85 


48 


4C 


EA 


03 


s: 


0310- 


4A 


03 


08 


8A 


48 


AD 


i A 


03 


0318- 


A2 


■7 


tOD 


3A 


03 


FO 


OC 


CA 


0320- 


10 


FB 


C9 


EO 


90 


08 


38 


E9 


0328- 


20 


DO 


03 


BD 


42 


03 


an 


4A 


0330- 


03 


69 


AA 


2B 


AD 


4A 


03 


4C 


0338- 


FO 


FD 


CO 


DC 


BO 


FB 


FC 




0340- 


FE 


FF 


CI 


C3 


AI 


C5 


OS 


C5 


0348- 


AD 


A2 


00 


68 


A9 


68 


A6 


OF 


0350- 


9A 


49 


98 


48 


60 









Accompagne d'une cinquantaine cle pages de documentation , Sisk Manager permet de recreer 
les commandos du Dos, redefinir I' organisation d'une disquette, grace a un jeu d' instructions qui 
en fait un langage simple d'acces a la disquette. 11 off re egatement un programme simple d 'edition 
a I' aide de commandes evoluees. 4 unlitaires figurent aussi sur la disquette : 

Utili-disquc : reconstruction d'une disquette ditruite. Verification, Plan d'occupation 

Ultra-copie : pour un backup particuUerement rapide 

Edicat : Edition du catalogue, classernent des fushiers, Tiires... 

M ullL-disquf. : pour le classemp.nl dp. tnus vox prngrammps (tri instanlfinp) 

Sisk Manager, le Dos en Kit 

de Dan Steevey 
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Pom's n° 21 




Michel Dominique 



Calcul de 



Pour tous ceux qui 
estiraent peremptoire 
l'affirmation d'Olivier 
Hcrz dans son article 
"EXP. (tt*SQR (163)) est-il en- 
tier T (Pom's 12), selon laquelle 
n est suppose connu, voici un 
petit programme en Applesoft, 
ecrit pour calculer ce nombre. 

Pour ce faire, nous utiliserons le 

resultatmathematique suivant : 
rc/2=l+(l/3)+(l*2)/(3*5)+...+ 
(n!/1*3...*(2n+1))+... 
Cette methode compte parmi les 
plus simples, mais elle permet un 
calcul rapide par ordinateur. 
L'algorithme utilisam la methode 
de Horner consiste & calculer par 
approximations successives ct cn 
s'arretant au rangn : 
tx=2+(1/3)*(2 + (2/5))*(2+ 
(3/7))*(2+(4/9))*(2+...*(2+ 
(n/2n+l)) 

Lc programme commence par 
determiner le nombre de termes 
calcules (lignes 30 et 70); 
l'experience montre qu'il s'agit 
environ des 10/3 du nombre de 
decimales voulu. Puis il effectue 
le calcul dans la courte boucle de 



lignes 100 a 250, ce qui prend, 
eu secondes, un temps equivalent 
au 25eme du carre du nombre de 
decimales. Le reste du 
programme est consacre d 
1'affichage et au stockage des 
decimales sur disque (fichier 
TEXT). 

Remarques 

1) Ce calcul se programme en 
Basic (8 decimales) par : 

PI=0:FOR N=30 TO 1 
STEP-1 :PI=PI*N/ (2* 
N+l)+2 : NEXT: PRINT 

PI 

2) On peut aussi effectuer le 
calcul avec le Calculateur 

Entier de Jacques Duma 
(Pom's 12), parexemple avec 
100 decimales : 

K - 10 A 100: K-2*K: 
N=333: I=2*N: 1=1+ 
1 ; P-0 111#: 3#: 
p=p*N: p=p/T: P=P + 

K: N«N-1: 1=1-2 ?P 
Notons que ce calcul prend 
pres de 50 mn, contre 6 mn 
30 au programme Basic avec 
le meme nombre de 





decimales. En effet, le 
Calcalateur Entier n'est pas 
plus rapide pour le produit 
d'un grand nombre par un 
petit que pour le produit de 
deux grands nombres, 
contrairement a un programme 
Basic que Ton peut adapter & 
la longueur des nombres. 

3) Le programme ne fonctionne 
correctement que pour un 
calcul avec au moins six 
decimales. 

NDLR : Pour aller plus avant 
dans la connaissance de it, le 
supplement au 'Petit Archimede' 
n° 64-65 de max 1980 consacre 
280 pages & une cinquaniaine de 
methodes de calcul et en prime les 

25000 premieres dtcimales pour 
verifier vos calculs. Cet ouvrage 
est en vente a la lihrairie du Palais 
de la Decouverle a Paris. 



Programme PI 

REM ******************** 
2 REM CALCUL DES DECIMA T.ES 

2 REM DE PI 

3 REM MICHEL DOMINIQUE 

4 REM ******************** 

5 GO SUB 5000 

10 TEXT : HOME : CLEAR ; IN 
POT "NOMBRE DE DECIMALES 
: "/ NDEC$ ? NDEC = VAL (N 
DEC$): IF NDEC$ = THE 
N END 

12 ON NDEC < 10 GOTO 10 

24 REM ******************** 

25 REM CALCUL DU NOMBRE 

26 REM DE BOUCLES 

21 REM ******************** 



30 VTAB 4: HTAB 14 r PRINT 
"PATIENCE. . . ":NMEM = I 
NT (NDEC / 5) * ( INT ( 
NDEC / 5 < > NDEC / 5) 
) :N = (NDEC -hi)* LOG 
(10) :S = 0:NB m 1 
70 NB = NB + 1:S = S -h LO 
G (2 + 1 / NB) : IF N > 
= S THEN 70 

$0 DIM DEC(NMEM) :DEC(1) = 
100000:NI = DEC(1):NJ = 
NI * 10: AD = 2 * NI 
83 REM ******************** 

90 REM CALCUL DES DECIMALES 

91 REM ******************** 
100 FOR N ^ NB TO 1 STEP 

- 1: VTAB 10: HTAB 15: 



PRINT NB - N -h l;"/ n ; 
NBiM = 0:K = 2 * N + 2 

120 FOR I = 2 TO NMEM-.Z = 
DEC (I) + M:DEC(I) = I 
NT (2 / K) :M - (Z - DE 
C(T) * K) * NI: NEXT I 

170 M = 

180 FOR I = NMEM TO 2 STEP 
- 1 iDEC(I) = DEC (I) 
* N + M:M = INT (DEC ( 
I) / NI)-.DEC(I) = DEC( 
I) - M * NI: NEXT I 

230 DEC(l) = DEC (1) * N + 
M:M = INT ( INT (1) / 

NJ):DEC(1) = DEC(l) - 

M * NJ + AD 
260 NEXT N 

270 GOSUB 1000: GOSUB 4000 
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: GOTO 10 
991 REM ****************** 

993 REM AFFICHAGE 

994 REM DES DECIMALES 
996 REM ****************** 

1000 HOME : FOR 1=1 TO 3: 

CALL - 1052: NEXT 
1010 PRINT TAB ( 5);"*** PI 
AVEC "/NDEC/ " DECIMAL 
F.S ***": POKE 34,3: HO 
ME 

1020 C$ = STR$ (DEC(1)):C$ 
= RIGHTS (C$, 5) :DEC ( 
I) - VAL (C$) 
1030 PRINT "3, ";:N = 0;L = 


1040 FOP T = 7 TO NMEM - 1 
1050 IF N = 6 THEN N = 0: P 

PINT : PRINT SPC( 3); 

;L = L + I 
1060 Z$ - STR$ (DEC (I) ) 
1070 IF LEN (Z$) < 5 THEN 

Z$ * n 0" * Z$: GOTO 10 

70 

1080 PRINT Z$;" ";:N = N + 
1 

1090 NEXT I 

1100 LL - NDEC - 5 * (NMEM 
- 1): IF NOT LL THEN 
1140 

1110 Z$ = STR$ (DEC (NMEM)) 
1120 IF LEN (Z$) < 5 THEN 
2$ = "0" + Z$: GOTO 11 

20 

1130 PRINT LEFT$ (Z$,LL) 



1140 INVERSE : VTAB 23: H'l'A 

B 3: INPUT "PRESSEZ <R 
ETURN> POUR CONTINUER" 
;KEY$; NORMAL ; RETURN 
3991 RKM ****************** 

3993 REM SAUVEGARDE DES 

3994 REM DECIMALES 
3996 REM ****************** 
4000 PRINT " VOULEZ VOUS 

UNE SAUVEGARDE ? "; : G 
ET H$ 

4010 IF H$ < > "0" AND H$ 
< > "N" THEN VTAB 4: 
GOTO 4000 

4020 IF H$ = "N" THEN RETU 
RN 

4030 HOME :D$ = CHR$ (4) 

4040 PRINT " NOUS ALLONS SA 
UVER LES DECIMALES DE 
PI " 

4050 PRINT "CALCULEES SUR D 

ISQUETTE . " 
4055 PRINT 

4060 PRINT "INTRODUISEZ UNE 
DISQUETTE PUIS PRESSE 
Z" 

4010 INPUT " 'RETURN '."/H$ 
4100 PRINT D$"OPEN PIDEC": 
PRINT D$ "DELETEPIDEC" 
4110 PRINT D$"OPENPIDEC 
4120 PRINT D$"WP7TF.PTDEC 
4125 PRINT NDEC: PRINT NMEM 
4130 FOR DEC = 1 TO NMEM 
4140 PRINT DEC (DEC) 
4150 NEXT 



4160 PRINT D$"CL0SE 

4162 PRINT .- INPUT "SAUVEGA 

RDE DE SECURITE ? n ;B$ 
4165 IF fi$ < > "0" AND H$ 
< > "N" THEN 4162 

4161 IF H$ = "O" THEN 4055 
4170 RETURN 

4991 REM ****************** 

4993 REM AFFICHAGE DES 

4994 REM DECIMALES 

4995 REM DEJA TROUVEES 
4997 REM ****************** 
5000 TEXT 1 HOME : PRINT 
5010 PRINT "VOULEZ-VOUS VOI 

R LES DECIMALES": PRIN 

T "DEJA TROUVEES "/ 
5020 INPUT R$: IF R$ < > " 
O" AND R$ < > "N" THE 
N 5020 

5030 IF R$ = "0" THEN GOSU 

D 6000 
5040 PRINT : PRINT 
5050 RETURN 

6000 HOME :D$ = CFW$ (4) 
6010 PRINT D$"0PEN PIDEC" 
6020 PRINT D$ "READ PIDEC" 
6030 INPUT NDEC 
6040 INPUT NMEM 
6045 DIM DEC (NMEM) 
6050 FOR DEC = 1 TO NMEM 
SO 60 INPUT DEC (DEC) 
6010 NEXT 

6080 PRINT D$ "CLOSE PIDEC" 
6100 GOSUB 1000 
6120 RETURN 



Iffl - U© OMGlfedOF (M(§01](o][ 

Jacques Supernant Apple ][+, //c, //c 


§ 


Ce moniteur autorise un controle de Texecution des 
routines en langage machine 




\ Un mode Trace ct Pas k Pas tres 6yo1u6s et sSlectifs sont completes 
Y p^r un acces direct aux registres du 6502 (ou 65C02). jM 


Les ftchiers 
source sont sur 
la disquotte. 

Disquette et 
documentation : 
150,00 FTTC 
franco . Bon dQ 
commande 
page74. 


\ La gestion des fenetres d'ecran simplifie le mode trace. 
rjr Une routine permet la recherche de suites d'octets. 


>y Un mini-assemble ur tr&s souple fail partie de Max. 

y Une ligne de commande peut devenir une boucle avec l'ordre JUMP 
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Guide Magnard du tout logi- 
ciel - 1985/1986 - 415 pages 
-149 FF. 

Dix programmes par page sotit 
decrits sch^matiquement dans des 
cartouches bien presentees, mais 
contenant une information bien 
entendu schematique. A ne pas 
lire si vous cherchez le moindre 
avis sur les programmes propo- 
ses. Le titre est totalement abusif : 
ce "tout logiciel" parvient & 
ignorer AppleWorks, AppleWri- 
ter f Multiplan, ... De toute fa?on, 
avec moins de 200 programmes 
sur Apple II, on ne pourrait meme 
pas presenter tous les program- 
mes publies par Pom's pour ses 
lecteurs depuis le N°l ! 



dBase IT - Applications de 
Christophc Stehly, Sybex -268 
pages- 148 FF. 

Le livre a ete realise en utilisant la 
version 2.4 francis^e de dBase II. 
Une premiere partie illustre les 
possibilites du programme en 
gestion de fichiers, la program- 
mation de dBase II etant couverte 
dans une seconde partie, & l'aide 
d'exemples de gestion varies. Un 
dernier chapitre fort interessant 
explique comment il faut s'y 
prendre pour bien constituer ses 
fichiers. Ouvrage clair et bien 
presente. 



La troisieme pomme de Jean- 
Louis Gassee, Hachelte - 200 
pages - 64 FF. 

Le sous-titre, Micro-informatique 
et Revolution Culturelle, decrit 
mieux le contenu de cet ouvrage 
que nous devons a I'ancien 
directeur d'Apple Fiance, vice- 
president depuis quelque mois 
d'Apple en Calif ornie. Lecture 
indispensable pour comprendre le 
genre de vocation qua pu susciter 
Pcsprit Apple, et dont nous 
esperons qu'il continuera h en 
susciter ... 



Les ecrans du Apple He par 
Phil Robinson, Hachette Infor- 
matique — Deux tomes de 26 
pages chacun - 110 FF piece. 
Traduit de l'anglais. 

II fallait oser un tel titre ... 
Presentation luxueuse : de la 
coulcur, de la mise en page, des 
themes couverts chacun en une 
page simple ou double. Bien fait. 
Ceci dit, en 2 fois 64 pages, on ne 
peut en aucun cas etre exhaustif. 

Apple He User Guide par 
Gary Phillips et Donald Scellato, 
Brady (Prentice Hall) - 370 pages 
- $20.75. 

Ouvrage couvrant tout ce qui peut 
toucher de prhs ou de loin les 
utilisateurs du He. Tout d'abord, 
146 pages sur le lie lui-meme 
dans lesquelles on trouve par 
cxemple un chapitre sur 1'utili- 
satinn du disque System Utilities 
et un chapitre sur DOS et ProDOS 
avec une interessant comparaison 
instruction par instruction. Ensui- 
te, une cinquantaine de pages de 
guide pour 1'acheteur de logiciel, 
et enfin un guide d'achat pour les 
peripheriques. Bien realise, mais 
h consulter pour voir si e'est bien 
ce que vous recherchez. 

Destination A venture Apple 
lie, 11+ et lie de Delton Horn, 
Editions du PSI - 240 pages - 
140 FF. Traduction. 

La fa§on dont on programme un 
jeu d'aventure est expliquee en 
detail autour d'un premier jeu. 
C'est clair et detaille, mais pas 
forcernent perforrnant au niveau 
de la programmation. Ainsi, a un 
endroit, on teste la meme chaine 
sur une cinquantaine de valeurs 
possibles, au lieu d'effectuer une 
recherche dichotomique dans une 
table alpha : cela fait en moyenne 
25 comparisons au lieu de 6 ! 
Trois autres jeux sont listes en fin 
d'ouvrage, accompagnes d'expli- 
cations et d'organigrammes. 



Multiplan sur Macintosh de 

Goulven Habasque, Sybex — 233 
pages - 148 FF. 

La premiere partie concerne 
l'initiation h Multiplan sur Mac- 
intosh, avec seulement 53 pages 
trfcs aerees : ce n'est done pas 
pour vous initier a Multiplan que 
nous vous conseillons cet ouvra- 
ge; Tinitiation n'est pas assez 
approfondie a notre avis. Ce qui 
est interessant, c'est la suite : 
vingt-sept petits tableaux d'anal- 
yse numerique (6), de geometrie 
(6), de statistiques (6), d'econo- 
mie (5) et de gestion (4). Nous 
vous conseillons de consulter ce 
livre avant de facheter, pour voir 
si les excmples vous interessent. 

BASIC Engineering, Scien- 
ce, and Business Programs 
for the Apple II and He, 

Brady Comm. Co, Prentice-Hall 
- 330 pages - $29.95 

Malgre son titre angl ais tr£s gene- 
ral, ce livre traite avant tout de 
divers problemes de statistiques ; 
gestion des matrices, regressions 
lincaircs, syst&mes d'equations 
multiples, tris, resolution d'equa- 
tions differentielles, simulations, 
etc. 

Chacun des problemes est aborde 
d'abord thdoriquement et par 
l'etude d'exemples, puis par un 
programme en Applesoft, facile- 
ment transposable d'ailleurs sur 
d'autres ordinateurs. En revan- 
che, aueune routine en assembleur 
6502 n'est proposee. 

Macintosh, quels logiciels ? 
de Pierre Courbier r ETSF -143 
pages. 

Demonstration, de rapide a tres 
schematique, d'un certain nombre 
de logiciels pour Macintosh. Un 
fourre-tout bien redige, mais dont 
1'utilite ne nous semble pas evi- 
dente. R£alis6 sur Image Writer, 
mais en qualite courrier . . . 
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MacAstuces par Herve Thiriez, 
Editions du PSI - 264 pages - 
150 FF. 

Hhmm ! Difficile de parler du 
petit dernier du redaeteur en chef. 
Le mieux est peut-etre de lui 
demander de le presenter 
lui-meme : 

"Ce livre est destine a tous les 
utilisateurs du Macintosh ayant 
dej& fait le tour de leur machine. 
On y trouve en effet de nombrcu- 
ses explications sur des notions 
parfois mal mattrisees (lc role du 
Finder, par exemple), et de multi- 
ples trues et astuces d'utilisation. 

Une premiere partie (88 pages) 
couvre le Macintosh lui-meme ! 
les "allergies" du Mac, le 
systeme, le bureau, le clavier, les 
disquettes et les configurations. 
La seconde partie - les logiciels - 
traite de douze logiciels standards. 
L'avenir est couvert dans la 
troisieme partie, avec les integres, 
accelerateurs et a utres program- 
mes faciliteurs. 

Une disqueue d'accompagnement 
facultative (200 FF TTC) fournit 
un ensemble de regies pour 
MacWrite, un utilitaire pour 
Multiplan, des demos animees 
ThinkTank ct MacDraw, des 
images MacPaint bien utiles, un 
package de programmes statis- 
tiques et graphiques et une police 
de caractfcres graphiques creee par 
l'auteur. 

Entifcrement realise en Macintosh, 
mais sorti sur LaserWriter, ce 
livre est bien presente, avee dc 
nombreuses illustrations. Quant 
au contenu... un must, je 
l'espere, pour ceux qui veulent 
tirer le maximum de leur 
Macintosh !" 

Apple lie, guide de I'utili- 
sateur de Thomas Blackadar, 
Sybex - 147 pages - 98 FF. 
Encore une traduction ... 

Cet ouvrage est tres general et 
apporte un debut d'initation au 
Basic, donnant & la fin un guide 
de reference du Basic limitc aux 
seuls mots reserves introduits 
dans le livre (?). A consuker pour 
voir si on ne prefere pas lire la 
documentation Apple et faire des 
economies. 



Multiplan et Chart sur Mac- 
intosh de Xavier Bouilloux, 
Edimicro - 235 pages - 159 FF. 

Cela m'enerve loujours de voir un 
livre sorti sur ImageWriter sans 
meme utiliser la quality courrier. 
Certes, cela gagne du temps, mais 
quand meme. La premifcre panie, 
guide de l f utilisateur pour le livre, 
Macintosh, Multiplan et Chart, est 
trfcs succincte ; a peine 30 pages 
pour Tensemble des deux logi- 
ciels ; ce n'est pas comme cela 
qu'on apprendra a les utiliser. La 
seconde partie comporte 10 exem- 
ples, dont 5 avec passages au 
graphique. L'interet principal de 
l'ouvrage tient & l'illustration de 
l'utilisation de Chart, stir lequel il 
existe moins d'ouvrages. Nous 
aurions prefere voir un livre 
uniquement sur Chart, avec un 
chapitre sur la communication 
avec Multiplan. 

Les ressources de I* Apple 
lie de Nicole Breaud-Pouliquen, 
Editions du PSI - 1 06 pages - 85 
FF. 

Le premier ouvrage en fran$ais ou 
Ton trouve un certain nombre de 
renseignements pour la program- 
mation du lie, avec en particulier 
la lisre des instructions du 65C02. 
A conseiller & tous ccux qui pro- 
gramment en assembleur sur le I lc 
et, aussi, S ceux qui auroul mis le 
chip du lie sur leur Apple II. 

Multiplan facile de Georges 
Liegois, Marabout - 126 pages - 
29 FF. 

Un exemple typique de travail 
rapide ; le livre est ecrit autour de 
la version americaine de Multi- 
plan, pour "tous" materiels. C'est 
ainsi que les tableaux sont sortis 
en Macintosh, alors que le mode 
d'cmploi se refere aux comman- 
des de Multiplan avec les autres 
materiels. Le souci de ratisscr 
large amene l'auteur a presenter 
les commandes communes a tous 
les materiels, sauf au Macintosh 
(pourtant cite en premiere et qua- 
tri£me de couverture) pour lequel 
Multiplan s'utilise tres differem- 
ment. Avec cette approche "tous 
materiels", le lecteur est prive de 
la presentation des raccourcis 
disponibles sur tel ou tel materiel. 



Basic Applesoft Lexicum, 
(Manuel de reference alphabe- 
tiquc Basic - DOS 3.3 - ProDOS) 
de Paul Merry, Mnemodyne — Un 
pave- 168 FF. 

Cet ouvrage date d'un an, mais 
nous n'avions pas encore eu 
l'occasion de le voir. II ajoute k 
l'ancien manuel de reference, deja 
couvert dans Pom's, 62 pages sur 
le ProDOS, bien utiles dans la 
mesure ou la litterature relative au 
ProEX)S est encore pauvre. Enfin, 
maintenant, la rehure est un peu 
plus solide ... 

Macintosh : outils, progi- 
ciels, applications de Xavier 
Gaucherand, Edimicro - 237 
pages - 148 FF. 

Un des rares ouvrages g6neraux 
sur le Macintosh qui ne se 
contente pas de refaire le mode 
d'cmploi dc base du Mac avec ses 
logiciels "residents" et Multiplan. 
Cinq parties : presentation du 
materiel, syst&mes et langages, 
logiciels d'application, doinaines 
d'utilisation et choix d'une 
configuration. Les analyses de 
points forts et points faibles des 
logiciels sont assez bien vues. Un 
livre intercssant. 

Le secretariat par traitement 
de texte de Ilya Virgatchik, 
Marabout - 287 pages - 160 FF. 

Nous sommes toujours dans les 
produits sur CP/M ; bien que cela 
ne soit pas apparent dans le titre, 
il s'agit d'un manuel pratique, eL 
complet, de Wordstar. 

Le manuel du Basic par M. 
Waite et M. Pardee, Hachette 
Informatique - 344 p. - 130 FF. 
Traduit de l'anglais. 

II s'agit d'un manuel de cours, et 
non d'un livre de reference. Le 
cours est bien fait, clair et 
pedagogique, agremente par de 
nombreux petits dessins humo- 
ristiques que j'ai bien apprecies. 
Bonne lecture pour debutant. II 
s'agit cependant du Basic Micro- 
soft : n'achetez done pas ce livre 
si vous vous interessez exclusi- 
vement & l'Applesoft ou si vous 
cherchez des informations sur les 
particularism es des Basics sur 
Apple. 

a 
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Courrier des Lecteurs 

Alexandre Avrane, Olivier Herz 



Possesseur depuis pen d'un 
Apple lie, et tout nouvel abonne 
de voire revue, je viens de 

dicouvrir par hasard des signes 
Granges que je vois parfois 
utiliser dans certains logiciels. Je 
me suis par la suite aperqu que je 
pouvais lesfaire apparattre en me 
mettant en mode INVERSE. 
Comment puis-je utiliser correc- 
ternent ces signes ? 

D'autre part, tous les conseils 
(POKEs entre autre) donnes aupa- 
ravant dans votre revue, sont-ils 
valables sur He ? Enfin, pouvez- 
vous me conseillp.r un ouvrage qui 
permettt d'approfondir les possi- 
bilitis de mon Apple prefere ? 

Gerald Lamy 
milOLaRoquelPernes 

Les caracteres souris que vous 
avez decouverl par hasard sur 
votre Apple lie sont disponibles 
directement sur cecre machine afin 
de pouvoir y utiliser la philoso- 
phic Macintosh (souris et menus 
deroulants). 

Un exemple de demonstration et 
de nombreux autres renseigne- 
ments techniques que vous re- 
cherchez sont indiques dans le 
livre "Les Ressources de 1' Apple 
lie" (Editions du PSI). 

En ce qui concerne les differents 
conseils publies par Pom's depuis 
le premier numero, ceux-ci soul 
utilisables tels quels lorsqu'ils 
appellent le DOS, ProDOS ou 
l'liiterpreLeui" Applesoft. En re- 
vanche, certaines adresses du 
moniteur Autostart, de la carte 
controleur de disques, et des 
internipteurs entree/sortie ne sont 
pas applicables directement sur un 
Ik. 



J'ai cree, avec une table de formes 
(Shape de V Applesoft) , une carte 
d'Europe que je charge par un 
"Blood Europe, A8192". J 'utilise 
ensuite. un programme Basic pour 



repirer les coordonnes (Its pays. 

Ayant, pour iinstant, entrd les 213 
des coordonnccs, je rn'apercois 
que la page graphique se trans- 
forme a chaque nouvel ligne de 
programme : des traits horizon- 
taux apparaissent dans tous les 
sens. J'ai essaye de mettre un 
LOMEM:16384, mais sans r6sul- 
tat. Quelle est Verreur ? 

Laurent Poppeschi 
76200 Dieppe 

Celle-ci provient tr£s certainement 
de la laille de votre programme 
Basic. En effet, la localisation en 
m&noire vive de celui-ci deborde 
sur les adresses des pages graphi- 

ques haute resolution. 

Une premiere solution consiste & 
charger votre image graphique en 
16384 ($4000) et non 8192 
($2000) et * ulilisei HGR2 au lieu 
de HGR. 

Deuxieme possibility : reduisez la 
taille de votre programme en eli- 
minant les REMs (Pom's N° 11) 
et en concatenant les lignes; vous 
pouvez aussi revoir votre techni- 
que de dessin (par exemple en uti- 
lisant une boucle FOR... NEXT 
qui lit les coordonnees en DATA 
etles ecritpar HPLOT). 

Troisiememethode: charger votre 
programme Basic au-dessus de la 
premiere page graphique utilisee; 
votre programme est alois localise 
& une adresse inhabituelle mais 
vous disposerez de moins de 
place mcmoire pour vos variables. 
Pour cela, executez le programme 
suivant avant votre propre pro- 
gramme : 

10 POKE 104, 64 : POKE 
16384 , : CT.FAR : PRINT 
CHR$ (4) "RUN progr. " 

Attention : cette derniere methode 
derange les pointeurs internes de 
1' Applesoft et il pourra vous etrc 
necessaire de rebooter par la suite. 

11 existe enfin une derni&re tech- 
nique plus elegante qui permet de 



faire "enjamber" un programme 
en Applesoft par-dessus les pages 
graphiques : voyez pour cela la 
page 63 du numero 8 dc Pom's 
ou le Recueil N°2 (p. 213-214) 
pour obtenir le listing du module 
en assembleur SPLITTER. 



Dans le numero 18 de Pom's, j'ai 
£t£ trts disappoint^ de rn'aperce- 
voir que le programme FENETRE 
ne fonctionnait pas correctement. 
En effet, la commande "& LET 
NV,VT f LN,NI(,IL)" nest pas 
acceptee par mon Apple lie. Le 
message "ILLEGAL QUANTITY 
ERROR" apparatt. 

Xavier Garcin 

01630 St. Genis-Pouilly 

Vous avez raison, il y a une erreur 
dans l'article, page 24. II faut 
lire : 

& LET NV,VT,HT,LN 1 NI(,IL) 
avec ; 

NV nom d'une variable 

VT tabulation verticals 

HT tabulation horizontale 

LN longueur de la barre inverse 

NI nombre d'items 

IL interligne (optionnel) 

Par ailleurs, ce programme, deci- 
dement marque par la malchancc, 
avait subi un ennui de montage. 
Son listing &ait incomplete et les 
lecteurs non abonnes aux dis- 
quettes ont du attendre le n a 19 
pour pouvoir l'utiliser. Pardon ... 



• L'envoi de codes ASCII 
compris enire et 127 peut etre 
necessaire (par exemple I'impri- 
mante EPSON LQ1500 imprime 
obligatoirement en italique si elle 
reqoit des codes compris entre 
128 et 255). Or (a routine PRINT 
de V Applesoft met automati- 
quemenc le 8tme bit & 1 et ne 
permet done que d'envoyer des 
codes compris entre 128 et255. II 
en est de mime d'AppleWriter. 
On peut g en fir alement forcer le 
Seme bit uO au niveau de la carte 
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interface ou de I'irnprimante en 
positionnant correctement les 
switches. 

Mais alors on ne peut plus 
envoy er de codes compris enrre 
128 et 255, ce qui peut aussi etre 
utile, mais de maniere plus 
exceptionnelle, par exemple pour 
definir dps caracteres program- 
mables. Le probleme ayant ete 
diplace pent etre risolu en 
utilisant une routine en langage 
machine telle que celle proposee 
par Apple Seedrin (Pom's n a 12), 
ou t plus simplement, par un 
POKE A,X oil X est le code 
ASCII d envoyer ( compris entre 
et 255) et A est I'adrp.sse 
correspondant cl la sortie des 
donnees sur la carte interface. Elle 
dipend ividemment de la carte 
utilise" e. Par exemple, pour la 
carte Superxtrie Apple placee 
dans le slot 1 , A est egal & 49304. 
Si I'irnprimante na pas de buffer, 
ou si la liaison est pariiculieremeru 
lente, il peut etre nScessaire de 
privoir une temporisation entre 2 
POKEs successifs, pour dvitcr 
que des caracteres se perdent. 
Notons au passage que 
I'irnprimante ImageWrite.r inter- 
prete correctement le 8irne bit tors 
des sequences de definition de 
caracteres programmables, mime 
lorsque les switches sont 

positionnis pour forcer le 8eme 

bitaO. 

• Le 'c' (ASCII 92) ne peut pas 
etre utilisi dans les textes 
imprimis par APPLEWRITER 
(version ][+) car il est inierprlxi 
cornrne caractire de soulignement. 
Un lecteur aurait-il trouve le 
moyen de changer It caractire de 
soulignement? En attendant, j'ai 
defini le 'c' comme un caractire 
programmable (assocU au code 
ASCII 106) de mon imprimante 
1MAGEWRITER et j'ai prevu un 
iliment du glossaire qui insere 
dans mon texte la sequence des 
codes ASCII 27, 44, 106 ,27 ,36. 
Ainsi* par CTL-G suivi d'une 
seule touche,je passe en alphabet 
"utilisateur" (27,44), j'imprtme le 
'c ' (106) et je reviens au jeu de 
caracteres normaux (27 ,16). On 
pern fair e la mime chose pour une 
autre imprimante. 

• Encore un probleme de 8eme 
bit; dans le n" 9 de Pom's, O. 
Ilerz propose une routine qui 



permet de recuperer dans.un 
tableau de variables alphanu- 
miriques le contenu d'un 
catalogue de disquette DOS. En 
fait, on ricupere dans ces 
variables des caracteres dont le 
8eme bit est force a 1. Ce n'est 
pas genant dans le programme de 
demonstration, mais si Von utilise 
certe routine dans un autre 
programme, il est impossible, par 
exemple, de comparer des noms 
de fickiers tiris du catalogue et 
des noms de fichiers entr&s au 
clavier (qui sont en me moire avec 
le 8 erne bit egal a 0). La solution 
consiste a forcer a le Seme bit 
dans la routine d'Q. Herz (AND 
#%Q1111111, en assembleur). La 
chalne de caracteres A$ de la ligne 
10 devient alors: "300:38 48 84 
FD AO 00 29 7F 91 FE E6 FE DO 
02 E6 FF 68 A4 FD 60 A9 AO 60 
N D823G" et le POKE 56,18 de 
la ligne 40 devient POKE 56,20. 

Jean Claude Lengrand, 78000 
Versailles 



Lorsqu'on utilise un programme 
de gestion de donnees avec une 
disquette "fichier" initialisee selon 
une procedure normale, il est 
toujours ennuyeux de rencontrer, 
lors de I'enregistrement de 
nouvelles donnies, Verreur 
"disquette pleine". L'appel d'une 
simple routine en langage 
machine, char gee a I'adresse 
$300, permet de connaitre le 
nombrc de secteurs encore libres. 
En enregistrant momentanement 
les donnies soit dans la carte 
langage, soit dans la mimoire de 
la carte 80 colonnes "etendue", 
initialisee respectivement en 
pseudo-disquette de 16K (voir 
Pom's 12, "Disque virtuel 
16Ko"), ou 64K (voir Pom's 14. 
"Disque virtuel 64Ko"), et en 
faisant un nppel, ayant et apres, a 
ctttt routine, il est possible de 
confronter Voccupation en 
secteurs de ces donnies avec le 
nombrc de secteurs restds libres 
sur la disquette "fichier". et de 
didder par programme 
I'initialisatinn d'une autre 
disquette. Cette routine est tiree 
du programme "HELLO complet" 
(Pom's 6) et adaptie comme suit : 



FRE.S 



1 




ORG 


$300 


2 


VTCC 


EQU 


$B3F2 


3 




JSR 


$AFF7 


4 




LDA 


i$00 


5 




STA 


COUNT 


6 




STA 


COUNT+1 


7 




WY 


f$8C 


8 


NEXTS 


LDA 


VTOC, Y 


9 


TESTS 


BEQ 


NEXTT 


10 




ASL 




77 




see 


TESTS 


12 




PHP 




13 




INC 


COUNT 


14 




BNE 


OTHR 


15 




INC 


COUNT-hl 


16 


OTHR 


PLP 




17 




BNE 


TESTS +2 


15 


NEXT? 


DEY 




19 




BNE 


NEXTS 


20 




RTS 




21 


COUNT 


DFB 


2 


22 




END 





FRE 

0300- 20 F7 AF A9 00 8D 25 03 

0308- 8D 26 03 AO 8C B9 F2 B3 

0310- FO OF OA 90 FB 08 EE 25 

0318- 03 DO 03 EE 26 03 28 DO 

0320- Fl 00 DO £9 CO 

Sauver cette routine comme suit : 
BSA VE LIBRE r A$300,L$25 
En dibut de programme de 
gestion, metire Vinstruction : 
PRINT CHR$(4) "BLOAD 
LIBRE,S6,D1" 
Pour connaitre le nombre de 
secteurs libres "SL", "s" etant le 
numero du slot et "d" le numfoo 
du drive, insere r cette ligne 
d' instructions : 

POKE43626,s: 
POKE 43624,6: 
CALL 768: 
SL=PEEK(805)+ 

PEEK(8Q6)*256 
Pour initialiser une nouvelle 
disquette "fichier" avec 526 
secteurs, insurer cette ligne 
d' instructions : 

POKE 46922,96: 

POKE 46923,234: 

POKE 44723,4: 

PRINT CHR$(4) 1NIT 

XX,S6,D2": 

PRINT CHR$(4) 

"DELETE XX" 

Thierry Haurie - Via Napoli , 2b 
21027 ISPRA (VA)-halie 
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Micro ^Informations 

Jean-Michel Gourevitch 



Pour les aficionados d'Apple, la nouvelle 
a r^sonne comme un d^chirement : Steve 
Jobs s'en va, la socidtd qu'il a creee lui 
intente un procds. Aprts Steve 
Woznialc, voici que part I'autre pSre fondateur 
d'Apple, et un peu de la micro-informatique. On 
aura beau dire que la croissance d'une societe a ses 
raisons, qu'il faut, un jour, trancher le cordon 
ombilical, il n'empgche : les Applcmaniaques en 
auront comme un pincement au cceur. . . 

Pas de quoi paniquer, cependant, dans l'immediat : 
Jobs a quitte Apple avec des idees et quelques 
ing^nieurs. On entendra 2l coup sur reparler de lui. 
Quant & Apple, la societe k la pomme ne manque pas 
de projets dans ses cartons pour les trois & quatre 
annees <l venir. Apr£s, on verra... 

Parmi ces projets, on trouvera de quoi moderniser 
r Apple // et muscler le Macintosh. 



Moderniser 
l'Apple // 

Priority chcz Apple : la remise au 
goflt - et a la technique - du jour 
de TApple If. Si, en Fiance, ses 
ventes ont un peu faibli en 

octobre, aux Etats-Unis, il conti- 
nue de r6sister vaUlamment. Pour 
preuve, le couttat passe" avec 
l'administration des postes de ce 
pays qui en a acheti en septernbre 
700 d'un coup (s'ajoutant aux 
1400 acquis au dfibut 1985). Au 
Sicub, Apple France a annonce 
officiellement les nouveautes de 
l'Apple // qui avaient 6te* presen- 
tees aux leeteurs de Pom's dans le 
num6ro 20 : lectcurs Unidisk 3.5 
de 800 Ko, cane d extension de 
memoire de 1 Mega-octet, irnpri- 
mante Imagewriter IL Voici done 
l'Apple // officiellement nanti de 
davantage dc mfimoirc que le 
Macintosh. 

Et cela nest qu'un d£but : les 
fabricants de cartes d'extension 
s'agitenL L'un deux. Coil Val- 
ley Computers, a trouv6 moyen 
de caser 1536 Ko (plus, d'un Mo 
et demi !) sur sa MuItLRAM //c 
(utilisable settlement sur l'Apple 
//e). Peuvent l'utiliser tous les 
programmes dcrits aux speci- 
fications d'Apple, et notamment 
Apple works : la carte est livrdc 
avec un "patch" pour iiendre la 
capacite d'Appleworks, un RAM 
disk permettant d'utiliser la carte 
comme disque virtuel, ainsi qu'un 
test de memoires; un bus dc la 
caitc pennet d'y reliei un CQ- 
processeur 16 bits pour accelercr 
les traitements). Son prix est pres- 
que raisnnnable : 699 dollars. 



Une fois la memoire dc l'Apple // 
"gouflee", encore faul-il l'utiliser, 
et avec une rapidite suffisante. 
Apres avoir soru MouseDesk. son 
"Finder" utilataire style Mac, a 
fenetres et menus ddroulanls, 
VersionSoft tiavaillerait acmel- 
lement sur un "Switcher" pour 
l'Apple // (le Switcher pennet de 
parlitionner la memoire de 1'ordi- 
nateur, et d'y installer simulta- 
ueuieul plusieurs programmes qui 
peuvent communiquer entre eux). 
Avec 1 ,5 Mo, il y a de qtioi nicher 
pas mal d'applieations et de 
fichicrs cn memoire. 



Keste le second problfcme : la 

rapidity. le "vieux" processeur 

6502 de l'Apple // n'avait pas 6te" 
cou^u pour subii de lelles eprcu- 
ves ni gerer de lelles memoires. II 
faudra done incorporer a l'Apple 
// un nouveau processeur. Peut- 
6tre le 68516, qui se substiluerait 
au 6502. 



Une autre solution serai L 
possible : installer sur une carte 
(en coprocesseur, done) le tout 
nouveau 68020 de Motorola. Quel 
est encore celui-la ? Tout 
simplement la demiere version du 
processeur 68000 qui equipe... ie 
Macintosh, plus sophistiquee : 
bus 32 bits, capable d'adrcsser 4 

Giga-octets dc memoire, et 

surtout encore plus rapide (12,5 
Mhz contre 7,83 Mhz 
actuellemeat). Revons un peu : 
l'Apple II muni du mfime format 
de disquettcs et du m£me 
processeur, et qui simulcrait le 
ronctionnement du Mac ? Ce 
serait trop beau pouretre vrai... 



Muscler lc 
Macintosh 

En tout cas. on parle deja de ce 
processeur pour equiper le Mac- 
intosh. Ou plutot son succcsscur, 
car il est impiobable que l'un 
puisse me ure a niveau les Macs 
d'aujourd'hui. Avec ce proces- 
seur, disposer de deux a quatre 
Mo de memoire vive, et amdliorcr 
rapidite' et gestion d'eciau devien- 
drait possible. 

Le probleme actuel du Macintosh, 
comme I'ont remarque ses utili- 
sateurs, e'est qu'on atteint trop 
vite les limites de rordinateur. 

L'utiliser avec un systeme un peu 

copieux (enfle notamment dc poli- 
ces de caractercs eL d'accessoires 
de bureau) ec des programmes 
"memorivores" comme Jazz exige 
riesnrmais une greffe de memoire 
et un disque dur. Et bien que les 
prix du Macintosh aient die reMuils 
en septernbre (de quelques 
6 000,00 F HT pour le 512 Ko), 
l'addition atteint encore des 
sommets vertigineux. A la 
mi-octobre, il fallait compter 
environ 16 000,00 F pour le 
nouveau disque dur d'Apple (pas 
encore disponible), et un peu plus 
de 5 000,00 F pour lc passage a 
1 024 Ko (greffe de 512 Ko 
supplementaires). Aux Etats- 
Unis, Beck Tech propose cette 
transformation a 1 024 Ko pour 
S549, et offrc aussi unc extension 
poitaut Id memoire vive lotale a 
deux Mo. Qui dit mieux 7 

Attention cependant : pour fran- 
chir la frontiere des 5l2Ko, el 
utiliser cetie memoire supplemen- 
taire directement (sans passer par 
un RAM disk), il est necessaire de 
modifier la ROM du Macintosh, 
de fa^on a d^placer la zone de 
memoire vive g€rant l'ecran du 
Mac. Une modification qui nest 

pas sans danger et qui peut poser 
des problemcs dc garantic. 
Voici une des raisons pour les- 
quelles les utilisateurs attendent 
avec impatience la uouvelle ver- 
sion de la ROM (128 Ko) 
qu'Apple preparerait pour le 
Macintosh. On risque helas de 
l'attendre jusqu'a 1986. De mSrne 
que le lecteui de disqueUes double 
face. II sera d'ailleurs peut-Stre 
remplace" par un lecteur de plus 
grande capacity. 

C'est en janvier prochain, lors de 
I'Assemblee g^n^rale des action- 
naires Apple que toutes ces nou- 
veautes devraient etre annoncces. 
En attendant, il faudra faire avec 
ou, pour 6tre plus precis, sans... 

Apple //c : de plus 
en plus de memoire 

L'Apple // suscite des perfection- 
nements qui augmentent nouble- 
ment sa puissance. 



C6t£ stockage, voici le premier 

disque dur a installer a Vintirieur 
de l'Apple //. Surprise : il est 

fraiocais. D'une capacite" de 10 
Mo, ce disque dur est congu par 
Gerb Electronique, une societe 
de Saint Nazaire. Comment loger 
un disque dur sous le capot de 
l'Apple IJ ? Bonne question, car il 
n'y a gufcre de place. Eh bien, on 
commence par retirer le bloc 
d'alimentation, et on lui substitue 
le Mega Core, qui contient a la 
fois uuc aluucuULiun de dimen- 
sions plus reduites, et un disque 
dur de 3 pouces et demi d'une 
capacite de 10 Mo. La carte de 
contr61e du disque s'installc dans 
un des slots de l'Apple; elle peut 
gerer 64 Mo. Le logiciel permet- 
trait de gerer le disque dur avec le 
systeme ProDOS, ce qui est nor- 
mal, mais aussi avec le Pascal, le 
CP/M et le Dos 3.3, ce qui Test 
moins. Prix : 18 000,00 F. 

Cdti memoire vive (MEV), voici 
la Kache Board d'OKS. Une 
carte "intelligente'' qui s'installe 
dans l'un des slots 4, 5, 6 ou 7. 
Elle contient 256 Ko, et conserve 
en memoire seulement les don- 
ates les plus souvent utilisees; 
elle precede automatiquement a 
des sauvegardes re*gulieres sur le 
disque dur, et r^duit ainsi les 
temps d'acccs. Un complement 
utile d'un disque dur pour $695. 
Cfite processeur, voici une nou- 
velle carte incorporant un micro- 
processeur 65C816 (16 bits) : la 
MultiKAM HEX de Check- 
mate, qui comprend aussi une 
extension de memoire. On enleve 
le processeur et la ROM dc 
gcsLion de mdmoire du chassis de 
l'Apple //, et on les enliche sur la 
carte. Cette meme carte inclut le 
Max Operating System de 
Micromagie (d^crit dans lc 

pr6c6dent nume*ro de Pom's). 
Prix de la carte : $200. Pour le 
moment, le hie, c'est qu'on ne 
trouve guere de programmes 
dCvcloppes pour le 65C816. Et 
ratmee prochaine ? Si l'Apple // 
semetau 16 bits... 

Apple //c : de plus 
en plus de memoire 

I .a carte d'extension de memoire 
d'Apple nc s'adrcsse qu'au He, 
mais les fabricants de canes ont 
aussi pens6 au He. 
Applied Engineering piopose 
ainsi sa Z RAM pour le lie. Elle 
s'installe a 1'interieur du //c et 
porte la memoire vive a 640 Ko. 
Utilisables en disque virtuel, ou 
directement pax certains program- 
mes comme AppleWorks. Utilisa- 
bles aussi avec le Pascal, le DOS 
3.3, CP/M et le ProDOS. En 
prime, la carte contient un proces- 
seur Z-80 rjermettant, en effet, au 
lie de faire tourner tous les 
programmes en CP/M (DBase II, 
Wordstar, etc.). Prix : $549 pour 
les512 Ko. 
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Checkmate Technology offre 
la MultiKAM C avec egalement 
512 Ko pour S429, mais sans le 
2-80. 

ioujours pour le 11c, Applied 
Engineering vend buss] ($79) 
une horloge qui se branche sur le 
port serie. 

Dcs classiqucs 

Sur le front des logiciels, voici 

d'abord des classiques qui nous 
rcvicnncnt dc divers bords. 

Word Perfect de SSI, celebre 
car il s'agit d'un des meilleurs 
traitemeuts de texte de 1'IBM PC, 
viem de se convertir a 1' Apple //. 
II dispose de lout ce qu'on peut 
attendre d'un traitement de texte : 
visualisation a l'ccran du Lcxtc tel 
qu'il hcu impiiuifi, remplaceuieut 
des mots, deplacements de para- 
graphes et de pages, correction 

orlhographique (helas, en anglais 
seulement), el il est configurd 

pour de nombreuses unprimantes. 
Prix : $179. 

Wordstar est aussi utilisablc sur 
1* Apple //, a condition de disposer 
d'une carte d'extension CP/M. 
Voici quelque temps, son 6diteur 
MicroPro proposait un ensemble 
comprenanl Wordstar et la carte. 
Cet ensemble, compose* de Word- 
star, Starindex, Spellslar, Report 
Star, Mailmerge, Datastar el Calc- 
star, ainsi que d'une carte CP/M 
fouctionuaut a 6 Mhz, est brade" 
aujourd'hui par Total Access a 
299 dollars. Un prix d6fiant toute 
concurrence. 

Quant a Software Publishing, 
r&Iiteur des celebrcs PFS File et 
Write, il vient d'ameMiorer son 
Ublcur PFS Plan. Celui-ci gere 
maintenani en memoire 70 rangs 
de 36 colonnes. Utilisation parti- 
culieremenl facile, prix : $125. 

Des accessoires 
de bureau 

Monitor, par Dogslar Soft- 
ware, est un de ces programmes 
residant en memoire dont on a 
I'habitude but l'IBM PC. II s'ins- 
taUe derriere tout programme ccrit 
en Pascal et permet, en pressant 
sur une touche, de disposer d'une 
calculatrice, du catalogue des 
fichiers, de fonctions de geslion 
de memoir e el de disqueLles. Le 
programme offre mgme un mmi 
assembleur-d6sassembleur. Prix : 
49 dollars. 

On connaissait les accessoires dc 
bureau du Macintosh, en voici 
pour voire Apple // pr6f6re" : les 
AppleWorks Accessories. lis 

s'insiailenL dans Appleworks et 
ont 616 congus par Pinpoint. On y 
trouve un carnet de notes, une 
calculatrice, un agenda, un com- 
poscm auLomaLique de numeros 
de telephone, et enfin la possi- 
bility d'inclure des dessins dans 
des documents ou d'imprirner des 



adresses sur des enveloppes. Le 
tout pour seulement S69. 

D'autrcs accessoires dc bureau, 
avec Jeeves de PBI. Une seule 
pression sur une touche du 
clavier, el ('execution d'Apple- 
Works est suspendue; on peut 
alors utiliser un calcndrier, un 
composeur de numeros de uSle- 
phonc avec annuaire, une calcula- 
trice a qnatre fonctions, un 
bloc notes ou un reveil. Prix : 
S50. 

Dcs compatibles 

On les croyait disparus avec 
l'arrivee des Apple lie et lie : 
rcvoici les ordinateurs compa- 
tibles. Aux Etats-Unis, Franklin 
sort l'Ace 2000 (S699) 
compatible avec le //e et le J/c. 
Grace & un nouveau DOS : le 
TDos. 

Boites m^talliques, double haute 
r6solution graphiquc, caractcres 
souris, claviers numeriques. Ces 
machines ne violeraient pas le 
copyright de la ROM d* Apple. 
Eu Fiauoe, ceitaiues boutiques 
commencent a offrir des compa- 
tibles "made in Taiwan"; certains 
proposent meme d'acheter les 
ROMs chcz Apple. Attention a ccs 
mauSriels vendus a des prix inie- 
ressants, mais dont la legalite est 
douteuse. F.n tout cas, le fait 
qu'on continue a copier 1'AppIe // 
montrc qu'il est »loin d'dtrc 
enterre. Les lecteurs de Pom's en 
doutaient-ils ? 



Pour le Macintosh : 
des langages 

Par la facility dc son apprcntis- 
sage, le Macintosh se rdvcle un 
ou til de choix pour 1'applicalion 
des systemes experts et des langa- 
ges d'intelligence artificielle. Ces 
langages SC uiuluplieiit a pitfseut 
pour ie Mac. 

Tout d'abord, la version Mac du 

Prolog II. BeneTiciant de l'envi- 
ronnement Macintosh (fenfitres, 

soun's, etc.). Ce langage a du* 
defini a pariir du Prolog II concu 
par le GIA (Groupe d'intelligencc 
artificielle de Lurniny, Universiic* 
d'Aix Marseille II). Le Prolog II 
est disiribue" par Apple et vendu 
au prix dc 4 744,00 F TTC 

En suite, voici le MacExpert de 
MindSoft. Un systeme expert 
"d'ordrc zero", capable dc crecr 

un systeme re"solvantdilernmes ou 
alternatives, en matiere de dia- 
gnostic, de classification, de 
planification financiere, etc. Ce 
langage esl base sur le calcul Ucs 
propositions et ses bases de 
connaissance sont composecs dc 
regies conslruites a partir de 
pluases declaratives. Ce systeme 
autorise 250 regies avec un Mac 
de 128 Ko et jusqu'a 1 000 
regies avec un 512 Ko. 



Autre systeme expert, Nexpert, 
develops par trois francais (Alain 
Rappaport, Jean-Marie Chauvet et 
Patrick Perez) a fait I'admiration 
dcs amcricains. Cc programme - 
vendu quelques 55000 - 
accompli t les mimes laches que 
d'autres vendus plus de 
$100 000. Utiiisant l'interface 
giaphique du Macintosh, sa 
structure de connaissance est 
automatiquemenl construite. 
visuaUsee et mise a jour par le 
systeme. 

Enfin. Experlogo, un produit de 
Turgeon, est un Logo pour le 
Mac pcrmctiarjt la realisation dc 
graphiques. 

Communication... 

. , . grace au modem deVetoppe 1 par 
Hello Informatique. II nume- 
rous, se conaecte et deconnecle 
automatiquement Voici pourquoi 
ce modem ne comporte aucun 
bouton, sauf un de reinitialisation 
cxccptionnelle du processeur. Ce 
veritable micro de couiirjuuicatiou 
comporte, comme 1'AppIe //c, un 
raicro-processeur 65C02. II peut 
done etre programme. On peut 
dcvelopper un programme de 
communication et le t£I£chargei 
dans le modem. Rdsultat : ce 
modem peut transformer l'ordi- 
nateur en serveur, il peut aussi 

servir de repondcur automatiquc, 

enrcgisirant auiomaiiquemeni les 
messages des lerminaux, ou des 
minitels qui I'appellent, et ce sans 
mobiliser l'ordinateur. II peut 
aussi servir a crypter ou decrypter 
les donndes echangees. Bien 
6vidernment, il fonctionne avec 
Mac Tell, MacTerminal, Version 
Com ou ASCII Express, ct 
permet d'acceder aux serveurs a 
1 .2UU bauds. Le tout pour moins 
de 5.000 francs. 

Apple France offrira aussi deux 
nouveaux modems : 1'un en bas 
de gamme pour utilisation a 300 
bauds, il faible coflt. L'autrc, plus 
evoke, a 1 200 bauds. 

Des utilitaires 

Macdisk Catalog, de New 
Canaan Micro Code, permet 
d'etablir un catalogue de vos 
disquettes et des fichiers qui s'y 
trouvent, avec un maximum de 
1092 ficliieis par catalogue. Il 
permet aussi d'imprirner des 
cartes de reTdrence. Prix : S40. 

Dream of the Phoenix pro- 
pose des disquettes vendues 40 
dollars, et rempbes a ras bord 
d'ubllitaires utiles, L'une contient 
uu calendriei, uue autic un 
programme de communication 
permettant d'dtablir un bulletin. 

Les Quick and Dirty Utilities 
(cn deux volumes) comprcnncnl 
des configurations de lerminaux 
s'mslallant dans le menu Pomme, 
des graph eurs, etc. 



Des accessoires 
de bureau 

Lc menu "Pommc" du Macintosh 
est devenu le refuge favori des 
accessoires de bureau. Beaucoup 
sont disEribu£s par les "Bulletins 
boards" americains. On y trouve 
noLammcnt un comptcur de mots 

(incapable cepeodant de compter 
les mots dans MacWrite). une 
horloge stylis^e au nnm parlant 
("Big Ben"), des chronos decom 
plant lc temps, un programme 

permeoant d'apprendre le Morse. 
Et mSme un mini " graph eur" 
permettant de r^aliser a loisir 
camcmbcrts, courbes, etc. en 
n'occupantque 18 Ko. 
Attention cependant aux incom- 
patibilMs : ainsi MacTracks, qui 
permet de creer des macros (se- 
quences dc commandos automa- 
tiqucs) daus uu programme ue 
fonctionne pas avec le precieux 
Art Grabber (pour ouvrir un 
dessin MacPaint et I'incorporer 
dans n'unporte quel programme). 

On risque souvenl de voir appa- 
raitre une bombe en appelant un 
de ces accessoires... 
Calculator Construction Set 
de Dubl Click permet de cons- 
truire soi-meme une calculatrice 

personnalisee et de l'mclure dans 
lc menu Pommc. Prix : 599. 

Et voici enfun, pour Macintosh, 
Sidekick, le c^lehre programme 
developpe par le non moins 
celebre Philippe Kahn - patron 
francais de Borland - et qui a fait 
un malheur sur 1'IBM PC. La 

version Macintosh comprend une 

partie s' integrant dans le menu 
"Pomme" avec uu composeur de 
numeros de t&ephone (il manque 
l'interface pour le relier au r6seau 
francais), un mini programme de 
communications invoquablc dc- 
puis n'importe quelle application, 
une calculatrice plus pcrtection- 
nee que celle du Mac (permettant 
notamment d'imprirner la "bande" 
de papier des calculs), uu "spoo- 
ler" pour imprimer un lexie tout 
en continuant a travaillcr avec le 
Mac (imprimer seulement des 
tcxtes non formates}, unc horloge 
analogique ei un calepin plus 
evolu6 que celui d'Apple. Avec ce 
calepin, on peut ouvrir n'importe 
quel fichier a l'inteYteur d'un 
programme, prendre des notes, 
proc6der a du Couper/ Coller 
entre prograrjimes. Cet instrument 
est genial et permet notamment de 
disposer de feneures dans Mac- 
Write, alors qu'elles n'existent 
naturellement que dans Word. 
Egalement regroupees dans le 
menu "Pomme", des mini- feu illes 
de calculs permellanl de calculer 
des frais, de noter une liste de 
choses a faire, etc. 
Quam a Sidekick lui-meme, il 
s'agil d'un programine permettant 
d'etablir un annuaire et, en cli- 
quant sur un nom, de composer 
aulomaliquement le num6ro dc 
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telephone (a condiuon dc disposer 
dc 1'iptcrface u^ccssakc), de cal- 
culer automanquement le coOt de 
la communication et de prendre 

des notes. Uo de ces programmes 
dont les Americains raffolent, qui 
a aussi souleve* renlhousiasme de 
J.-L. Gassee, 1'ex-patron d'Apple 
France; il souffre cependant d'un 

handicap : il occupe a lui seul une 
partie de la disqucttc, ct son 
syslcme est meiuorivore. Poui 
1'utiliser, il faut : 

1) deux lecteurs; 

2) se servir d'une disquette pour 
le seul systeme; 

3) installer les applications et fi- 
chiers sur la seconde. 

Pour un fonctionnemenl optimal - 
et cette regie vaut pour tous les 

accessoires de bureau — U vaut 
mieux disposer d'une memoirc dc 
1 Mo et d'un disque dur ... 



Des jeux 



Pinball Construction Set, 
d'Electroaic Arts, ce flipper en 
kit qui fit les beaux jours de 
1'Apple //, est maintenant dispo- 
nible pour le Macintosh. On peut 
m6me dessiner ses decors avec 
MacPaint 

Fokker Triplane est l'un des 
premiers simulateurs de vol pour 
le Mac, simulant, comme son 
nom 1'indique, un triplan Fokker 
de la premiere guerre mondiale. 

De la musique 

Dc nouvcaux programmes rendcot 



encore plus musicaux aussi bien 
1'Apple // que le Mat. 
MUSE (MIDI Users Sequencer 
Editor), de Rolandcorp, permet 
de composer el juuei de la inusi- 
que sur I'Apple // en utilisant 
1' interface MIDI, qui est devenue 
le nouveau standard en matiere de 
musique d'ordinatcurs. Possibi- 
lity ; uuil pistes indSpeudautes, 
correction autornalique des erreurs 
rythmiques et utilisation possible 
avec un joystick. Prix : $150. 

Total Music, Southwork 
Music Systems, permet d'in- 
terfacer un Mac au standard 
MIDI. On pcut enrcgistrer jusqu'a 
deux instruments MIDI & la fois. 
Prix : $489. 

Mega Track, dc Music works, 
permet d'enregistrer direciement 
depuis des instrumens MIDI. 
Pour 150 dollars. A noter que 
tous ces systemes permettent 
d'inclure les signaux de codes 
horaires (SMPTE) rendani le Mac 
compatible avec les systemes 
professionnels de video et de 
cinema. 

Enfin. Studio Mac de Creative 
Solutions, utilisant aussi l'inter- 
face MIDI, permet de simuler un 
clavier de synthedseur a 8 voix 
pour $595. 

Le Mac devient ainsi peu a peu un 
instrument de musique etonnant. 

Adresses 

Applied Engineering 
PO Box 798 



Cauolltou, Texas "5006 

Reck Teeh 

Berkeley — California 

Checkmate Technology 
509 South Rock ford Drive* 
Tempe, Arizona 85281-3021 

Coit Valley Computers 

14055 Waterfall Way 
Dallas, Texas 75240 

Creative Solutions 
4701 Randolph Rd Suite 
12 Rockville, MD 20852 

Dogstar Software 

PO Box 302 
Bloomington, IN 47402 

Dream of the Phoenix 

PO Box 10273 
Jacksonville, Florida 32247 

Dubl Click Software 

18201 Gresham Street 
Northridge, CA 91325 

Fraciel 

42, rue des Prebendes 
37000 Tours 

Gerb Electronique 

ZI de Brais - 44600 St Nazaire 

Hello In for maii que 

I. rue de Metz- 750 10 Paris 
JCR 

58, rue Notre Dame de Lorene 

75009 Paris 

MindSort 

II, bd. Edgard Qutnet 
75014 Paris 

Musicwurks 
18HavUand 
Boston, MA 02115 
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CT 
OKS 

"5 Tiii>cr^ai Trafi-Deja.il 
Spnrjgnocrj.Otoo 45066- 1154 

PBI Software 

1155B-H Cbc»Dn^c 
Foster City, CA **** 

Pinpoint Publishing 

Til : (415) 5301726 (USA) 

Rolandcorp US 
7200 Dominion Crete 
Los Angeles, CA 90040 
Software Publishing 
1901 Landings Drive 
Mountain View, CA 94043 

SouthWorth Music Svstems 
Box 275, R.R.1 
Harvard, MA01451 
SSI 

288 West Center Street 
Orein, Utali 84057 

Total Access 
PO Box 764246 
Redbird Airport - Hangar #8 
Dallas, TX 75376-4246 

Turgeon 

17, rue Sexdus Michel 
75015 Paris 

Version Soft 

66, rue Castagnary - 75015 Paris 
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Jean-Louis Gassee, de passage en France pour la promotion de son 
Hvrc "La troisicme pommc" (voir bibliographic) , a accordc unc 
interview a Pom's, dont nous vousfaisons partager quelques eMraiis. 
Nous n'avons kilos pas la place de retranscrire ici ['equivalent d'une 
heure de propos a batons rompus. Nous avons fait cependant noire 
possible pour respecter I'ensemble de ['interview, malgre les 
indispcnsablcs coupurcs* 



Entretien avec 
Jean-Louis Gassee 



> Quelle est aujourd'hui la 

strategic d'Apple ? 

JLG : La strategic d'Apple est en 

cinq points : 

• tout d'abord, de developper 
deux ligncs dc produits, Apple II 
et Macintosh, avec des modeles 
compacts et cxiensibles. 

■ une lignc de pdripheriqucs 
communs, en fait, des standards 
dc connection qui fcront, a terme, 
que si pax exemple on a un disque 
dur, il se connectera sur tous les 
appareils de la gamme ; on sim- 
plifie ainsi la vie de nos clients, de 
nos revendeurs et des autcurs dc 
togiciel. 

• mettre a la disposition des utili- 
saleurs un interface materiel et 
logiciel pour la communication 
qui leur permettent dc disposer 
d'une interface de communication 
normalised, homog6n6isee. Cest 
un probleme technique conside- 
rable mais je pense que, si on 3e 
r£soud, oo offrira des outils extns- 
mement cornpeiiufs sur le marche. 

• taire en sorte que nos clients 
eux-memes puissent Stre compe;- 



titifs dans un rnondc a foumis- 
seurs multiples, qu'ils puissent 
lire les tichiers etablis avec les 
machines d'autres marques. 
• le dernier point est un peu plus 
a long tcrme, mais 11 en faut. 
Cest de faire des rechcrches sur 
les architectures du futur. Tout 

simplement parce que la vocation 
d'Apple, e'est d'intercepter Tin 
novation et de l'indus trial! ser. 
Aujourd'hui, il y a tout un las de 
recherches qui se font en logiciel 
et qui vont aboutir. Ce qu'un 
essaie de faire avec les archi- 
tectures du futur, e'est d'Stre prets 
a les intercepter avec des machi- 
nes qui seront par exemple dix 
fois aussi puissantes qu'un Mac- 
intosh, plus puissantes d'ailleurs 
que pas mal de super-minis 
d'aujourd nui. Cest a long terme, 
mais on pense avoir quelques 
idees sur la question. On a un 
budget recherche et developpe- 
ment pour 1986 qui d£passe 100 
millions de dollars, alors ... 
> Avec I'extension de la 
gamme Apple II comme de 



cellc du Macintosh, n'y a-t- 
il pas un risque serieux 
d'augmenter les problemes 

de compatibility ? 

Cest 1'eternel probleme. Ma 
preference, quand j'ai le choix, va 
vers \e maintien de la compatibility 
plutot que la rupture. Jc pense que 
cela ne s'est pas irup mal passe" 
avec le lie. On a parfois des 
surprises avec la compatibility : 
on se dit apres coup "Mais 
comment jc n'y ai pas pense\..". 
Nous faisuns IravaiUer beaucoup 
de testeurs. 

Ceci dit, l'Applc II va entrer en 86 
dans sa dixieme annde : cela a for- 
cement change* entrc les machines 
d'aujourd'hui et celle du d^but. 
La meilleure strategic d'un cons- 
tructeur, e'est d'organiser quaud 
m£me une certaine dose d'incom- 
patibilite* : quand vous voulez 
apporter des progres, si vous 
n'abandonnez pas quclquc chose 
de temps en temps, vous allez 
faire un monstre qui marchera 
avec loutes les cartes depuis le 
d6but de Vhumanite et tous les 



logicicls. 

> Et I'avenir ? 

JLG ; II y a deux vuies qui nous 
interessent a tres long terme. 

La premiere, e'est comment utili- 
sei la techuolugic de& calculaleurs 
a jeu d'instructions r6duit, des 
machines qui, au lieu d'a voir des 
jeux d'instructions tres riches, 
auront un parti pris tres different : 
sur une mfiroe surface de siMcium, 
on va mettre une logique beau- 
coup plus simple et une 6norme 
quantity de registres. Avec des 
ccntaincs de registres, quand on 
programme cela efflcacement, on 
peut avoir des vitesses de calcul - 
avec la technologie actuelle, le 
silicium ~ extraordinaircs. Si on 
projette cela dans trois a cinq a. us, 
e'est une des Yoies. 
L'autre voie, e'est d'cxplorcr 
aussi les arcliileclures multi- 
circuits. Cest tres complique* 
parce que, dans ce domaine-la, un 
plus un ne fait pas deux. a 
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Bon de commande 



Disquettes 



HAIFA source (cf. Pom's n' 5) a 55,00 F 

H-BASIC (cf. Pom's n" 8) a 150,00 F 

MUSIC , (cf. Pom's n' 10) a 80,00 F 

DISK-MANAGER (cf. Pom's n' 11) a 450,00 F 

BASICIUM (cf. Pom's n' 13) a 150,00 F 

E.P.E (cf. Pom's n* 15) a 150,00 F 

PASCAL (cf. Pom's n' 15) a 80,00 F 

MAX (Moniteur etendu) (cf. Pom's n* 18) a 150,00 F 

DOMINOS (cf. Pom's n' 19) a 80,00 F 

M ACASTUCES (cf. Page 68) a 200,00 F 

P-FORMAT ][, P-POLICE ][ (cf. Page 33) a 200,00 F 

COGO (cf. Page 29) a 150,00 F 



Reciieils 



H If recueil des revues 1 a 4 - - a 140,00 F 

Disquettes d'accompagnement 1 a 4 & 150,00 F 

N°2, recueil des revues 5 a 8 a 140,00 F 

Disquettes d'accompagnement 5 a 8 a 190,00 F 



Anciens numeros 



Revues 4 7 8 a 35,00 F 

Revues 9 10 11 12 13 14 15 16 17 18 19 20 21 a 40,00 F 

Disquettes Apple II, //e, He 

1/2 3 4 5 6 7 8 9 10 11 12 a 55,00 F 

13 14 15 16 17 18 19 20 21 

Disquettes Macintosh 

14/15/16 groupees a 150,00 F 

17 18 19 20 21 a 80,00 F 



AbonnementS Pour fi numeros a panirdu n' l I 

Abonnement a la revue seule a 200,00 F 

Abonnement revue + disquettes Apple II, //e, //c a 480,00 F 

Abonnement revue + disquettes Macintosh a 600,00 F 



Total TTC : 

Supplement avion hors CEE : 15.00F par nume>o el/ou disqueLle : 

Montant du reglement : 



Envoyez ce bon et votre riglement & : EDITIONS MEV, 64 rue des Charmers 78000 VERSAILLES 

Nom : 

Adresse : 



Impnmene Ro»v- Vinccnnes. ImpnmC cn Fmncc OCp6t Icya) Nwumbic 1065. N 1 ' 
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Apple, Logiqu« et sysiemes 
experts. 

par RcnC DESCAMPS. 
224 pages - 120,00 FF. 

Pour rcsoudrc des cnigmes logi- 
qucs ci batii des raisonncmcnts. 

Basic Plus 80 ruulines sur 
Apple II, 

par Michel MARTIN. 
144 pages - 95,00 FF. 
Pour muscler voire machine. 

fcxploitalion d'enqueies sur 
Apple II CI IBM /PC, 
parJ.-F. GRIMMER. 
176 pages - 120.00 FF. 

Le irailemenl d'enqueies el 
('analyse des donnces. 

Diel&ique sur Apple II, 
224 pages - 120.00 FF. 

Mange; equilibre grace a voire 
ordinaieur. 
Apple en famllle, 
1 pur J.-F. SEN AN. 
232 pages - 120,00 FF. 



40 programmes utilises en 
Basic. 

Super Jcux Apple, 
256 pages - 120,00 FF. 

50 programmes de jeux cn Basic 
sur Apple. 

Apple, modems el serveurs, 

par A/uin MARIA TTE. 
224 pages • 130,00 FF. 
Apprenezacommuniquer avec 
voire Apple. 

5U modeler Mulliplan pour 
gerer sur Apple el IBM/PC, 

par P. el F. GYSEL. 
50 applications concretes inte- 
rcssani de nombreux aspects de 
la vie de I'enireprise. 

La programmation des jeux 
d' Arcades sur Apple He el He, 

par Jean-Luc FISCHER. 
340 pages • 140.00 FT. 

Apprencz a creer vos program- 
mes. 




Eii venle en librairie, en boutique informatique 
et aupres de P.S.I. Diffusion 
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